uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap canh a, b, c : ');readln(a, b, c);

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

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

writeln('ba canh la tam giac vuong')

else writeln('khong la ba canh tam giac vuong')

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

readln

end.

uses crt;

var a,b,c:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

write('nhap c:');readln(c);

if (a<b+c) and (b<a+c) and (c<a+b) then if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then writeln('3 canh tao ra tam giac vuong') else writeln('3 canh tao ra tam giac thuong') else writeln('ko tao ra tam giac');

readln;

end.