program hinh_tam_giac;
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) and (b+c>a) and (c+a>b) then writeln(a:5:1,b:5:1,c:5:1,'la 3 canh cua tam giac) Else writeln(A:5:1,b:5:1,c:5:1,'khong phai la 3 canh cua tam giac);
readln
End.
ko thêm j nữa nha bạn mình có j sai sót mong bạn thông cảm giùm mình có lổi j nhắn mình sửa cho nha ok!!!
nhớ chấm 7 điểm cho mìn nha ui bạn nhìu!!! <3