program ba_canh_tam_giac;
uses crt;
var a,b,c: real;
Begin
clrscr;
write('Nhap ba so a, b và c: '); readln (a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln (' a,b va c la ba canh cua mot tam giac ')
else writeln ( ' a,b va c khong la ba canh cua mot tam giac ');
if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
writeln('Day la tam giac vuong')
else
writeln('Day la tam giac thuong');
if(a=b)or(b=c)or(c=a) then
writeln('Day la tam giac cân')
else
writeln('Day la tam giac thuong');
if(a=b=c)then
writeln('Day la tam giac đều')
else
writeln('Day la tam giac thuong');
readln
end.
đánh code trên này khó đánh lắm nên bạn thông cảm
