Program NN;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then Write('YES')
        Else Write('NO');
        Readln
End.

Chúc bạn học tốt mong bạn vote 5 sao cũng như cảm ơn và ctlhn

program tamgiac;

             uses crt;

             var a,b,c:integer;

             begin clrscr;

             writeln('nhap ba canh cua tam giac');

             readln(a,b,c); if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');

readln

end.