program ct;
uses crt;
var a, b, c: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if (a+b<c) of (a+c<b) of (b+c<a) then write('a, b, c phai la do dai 3 canh tam giac') else
begin
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then write('Tam giac vuong');
if (a=b) and (b=c) then write('Tam giac deu');
if (a=b) or (a=c) or (b=c) then write('Tam giac can');
end;
readln
end.