Program Kiem_tra;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap canh a =');

readln(a);

write('nhap canh b =');

readln(b);

write('nhap canh c =');

readln(c);

if (a+b < c) or (a+c <b) or (c+b <a) then

writeln('khong phai ba canh cua tam giac ');

else

if ( a = b) and (b=c) then

writeln('la tam giac deu ')

else

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

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

writeln('la tam giac vuong can')

else writeln('la tam giac can')

else

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

writeln('la tam giac vuong')

else writeln('la tam giac thuong);

readln;

end.