var a,b,c: integer;

begin

clrscr;

writeln(' nhap lan luot do dai cac canh cua tam giac a,b,c la:')l;

readln(a,b,c)

if (a+b>c) or( b+c>a) or( a+c >b )then write(' la do dai 3 canh cua tam giac else write('khong phai la do dai 3 canh cua tam giac');

readln;

end.

Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then Write('Do la do dai 3 canh cua tam giac')
        Else Write('Do khong phai do dai 3 canh cua tam giac');
        Readln
End.