program tam_giac;
uses crt;
var a,b,c : real;
begin
clrscr;
writeln('hay nhap vao ba canh cua tam giac:');readln(a,b,c);
if (a+b>c) and(b+c>a) and(c+a>b) then begin
if (a=b) and (a=c) and (b=c) then writeln('day la ba canh cua tam giac deu') else
if (a=b) or (a=c) or (b=c) then writeln('day la ba canh cua tam giac can') else
if (a*a+b*b=c*c) and (b*b+c*c=a*a) and (a*a+c*c=b*b) then writeln('la ba canh cua tam giac vuong') else writeln('la ba canh cua tam giac thuong') end else
writeln('khong la la tam giac gi ca');
readln
end.