Cho trước ba số dương a, b và c. Hãy viết chương trình cho biết ba số đó có thể là độ dài ba cạnh của một tam giác hay không

uses crt;
var a,b,c:integer;
begin
clrscr;
   write('Nhap 3 so a,b,c: ');readln(a,b,c);
   if (a+b>c)and(a+c>b)and(b+c>a) then writeln('Day la do dai ba canh cua tam giac') else writeln('Day khong la do dai ba canh cua tam giac');
readln
end.

Program baitap;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

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

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

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

If (a+b>c) and ((a+c>b)and(b+c>a)) then Writeln('a,b,c phai la do dai 3 canh cua mot tam giac')

Else writeln('a,b,c khong phai la do dai 3 canh cua mot tam giac');

Readln

End.