program ba_canh_tam_giac;
uses crt;
var a,b,c: longint;
begin
clrscr;
writeln('nhap 3 do dai: '); readln(a,b,c);
if (a<(b+c)) then writeln('khong la do dai 3 canh cua tam giac') else
if (a=b) and (b=c) and (c=a) then writeln('do la tam giac deu') else
if (a=b) or (b=c) or (c=a) then 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 gia vuong');
readln
end.
Bạn tham khảo nhé!!!