uses crt;

var a, b, c : real;

begin

clrscr;

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

if (a = b) and (b = c) then writeln('Tam giac deu')

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

then writeln('Tam giac vuong')

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

then writeln('Tam giac can')

else writeln('Tam giac thuong');

readln

end.

PASCAL

uses crt;
var  a, b, c: real;
begin
clrscr;
write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
if (a+b>c) and (a+c>b) and (b+c>a) then 
begin
if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then 
writeln('Tam Giac Vuong')
else if (a = b) or (a = c) or (b = c) then 
begin
if (a = b) and (b = c) then 
writeln('Tam Giac Deu')
else 
writeln('Tam Giac Can');
end
else writeln('Tam Giac Thuong');
end
else write('Khong Phai Tam Giac');
readln
end.