uses crt;

var a,b,c:longint;

begin

clrscr;

readln(a,b,c);

if (a+b>c) and ( b+c>a) and (c+a>b) then write(a,b,c,'do dai 3 canh cua tam giac') 

else write(a,b,c,'khong la 3 canh tam giac');

readln;

end. 

PROGRAM: Do_Dai_Tam_Giac;

uses crt;

var a,b,c:Integer;

begin;

       clrscr;

       Write('Nhap canh a: '); readln(a);

       Write('Nhap canh b: '); readln(b);

       Write('Nhap canh c: '); readln(c);  

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

        Writeln(‘a, b, c là độ dài của 3 cạnh một tam giác’)

        Else

        Writeln('‘a, b, c không phải là độ dài 3 cạnh tam giác’.');

        Readln;

End.