program ctpt;

uses crt;

  var a, b, c: integer;

begin

  clrscr;

  write('Nhap a  = '); readln(a);

  write('Nhap b  = '); readln(b);

  write('Nhap c  = '); readln(c);

  if (a+b<c) or (a+c<b) or (b+c<a) then write('a, b, c khong phai do dai 3 canh cua tam giac') else

  begin

     if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then

          write('a, b, c la do dai 3 canh cua tam giac vuong)

     else write('a, b, c khong phai do dai 3 canh cua tam giac vuong');

   end;

   readln

end.

Program NN;
Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then
        Begin
                m:=sqr(a);
                n:=sqr(b);
                o:=sqr(c);
                If (m+n=o) or (m+o=n) or (o+n=m) then Write('YES')
                Else Write('NO');
        End
        Else Write('KHONG PHAI TAM GIAC');
        Readln
End.