Viết chương trình nhập vào ba cạnh của một tam giác (a,b,c) kiểm tra và thông báo ra màn hình: a,b,c có phải là một cạnh của tam giác không?

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 (a+c>b) and (b+c>a) then Write(‘YES’)
        Else Write(‘NO’);
        Readln
End.