*Thuật toán:

Bước 1: Nhập a, b, c

Bước 2: Nếu a + b > c và b + c > a và a + c > b thì thông báo thỏa mãn, ngược lại thông báo không thỏa mã

Bước 3: Kết thúc thuật toán

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 (a + c > b) and (b + c > a)) then writeln('Thoa man')

   Else writeln('Khong thoa man');

Readln

End.

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 ((a+c)>b) then
   writeln(a:4:2,',',b:4:2,',',c:4:2, ' la ba canh cua tam giac')
   else
   writeln(a:4:2,',',b:4:2,',',c:4:2, ' khong phai la ba canh cua tam giac');
   readln
end.

Chúc học tốt