Составьте программу, определяющую, могут ли три числа a,b…

Program abc; uses crt; var a,b,c: integer; begin clrscr; write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); if (a+b>c) and (b+c>a) and (a+c>b) then write ('треугольник существует') else write ('треугольник не существует'); end.