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:longint;
begin
clrscr;
   write('Nhap 3 so duon a,b,c: ');readln(a,b,c);
   if (a+b>c)and(a+c>b)and(b+c>a) then writeln('a, b, c la ba canh cua tam giac') 
      else writeln('a, b, c khong la ba canh cua tam giac');
readln
end.