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.

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.