program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln('KIEM TRA TAM GIAC'); writeln('nhap 3 canh a,b,c:'); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a)then begin writeln('day la 3 canh cua tam giac'); if(a*a=b*b+c*c) or(b*b=a*a+c*c)or(c*c=a*a+b*b)then writeln('TAM GIAC VUONG')else if(a=b)and(b=c)then writeln('TAM GIAC DEU') else if(a=b)or(a=c)or(b=c)then writeln('TAM GIAC CAN')else writeln('TAM GIAC THUONG'); end else writeln('khong phai ba canh tam giac'); readln; end.