uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba so nguyen a, b, c : ');readln(a, b, c);

if (a + b > c) and (b +c > a) and (a + c > b) then

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

writeln('3 so la do dai tam giac vuong')

else writeln('3 so khong la do dai tam giac vuong')

else writeln('3 so khong la canh cua tam giac');

readln

end.

Uses crt;

Var a,b,c,a1,b1,c1:Longint;

begin

clrscr;

write('nhap 3 canh tam giac : ');

readln(a,b,c);

a1:=sqr(a);

b1:=sqr(b);

c1:=sqr(c);

if (a+b>c) and ( a+c>b) and (b+c>a) then

begin

if (a1=b1+c1) or (b1=a1+c1) or (c1=a1+b1) then

writeln(a,' ',b,' ',c,' la 3 canh cua tam giac vuong')

else writeln(a,' ',b,' ',c,' khong la 3 canh cua tam giac');

end

else

writeln(a,' ',b,' ',c,' khong la 3 canh tam giac');

readln

end.