uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba so nguyen : ');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('ba canh tao thanh tam giac vuong')

else writeln('ba canh khong tao thanh tam giac vuong')

else writeln('ba canh khong tao thanh tam giac');

readln

end.

program bai_giai;
uses crt;
var a,b,c:longint;
begin
 clrscr;
  write('nhap a,b,c:');readln(a,b,c);
  if(sqr(a)=sqr(b)+sqr(c))and(sqr(b)=sqr(a)+sqr(c))and(sqr(c)=sqr(b)+sqr(a))then write('3 canh a,b,c la tam giac deu')
  else write('3 canh a,b,c khong la tam giac deu');
 readln
end.