hãy kiểm tra xem 3 số a,b,c có là độ dài 3 cạnh của một tam giác hay không? thông báo lên màn hình " thõa mãn" hay " không thỏa mãn"

Uses crt;

Var a,b,c:integer;

Begin

Clrscr;

Read(a,b,c);

If (a<=0) or (b<=0) or (c<=0) then write('Khong thoa man');

If (a+b>c) and (b+c>a) and (a+c>b) then write('Thoa man') 

else write('Khong thoa man');

Readln;

End.

Var a , b , c : Real ;

 BEGIN

 Writeln (' Nhap do dai 3 canh cua tam giac : ') ;

 Write (' a = ') ; Readln ( a ) ;

 Write (' b = ') ; Readln ( b ) ;

 Write (' c = ') ; Readln ( c ) ;

 If ( a + b > c ) and ( b + c > a ) and ( c + a > b )

 and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then

 Writeln (' Thoa man : Day la 3 canh cua mot tam giac ')

 Else

 Writeln (' Khong thoa man ! ') ;

 Readln ; END .

Chúc bạn học tốt !!