НУЖНО Delphi. Проверить, может ли быть построен какой-либо треугольник по введенным длинам сторон a,b,c (проверить неравенства треугольника: a+b>c, a+c>b, b+c>a) и вывести в окне формы соответствующее сообщение.

vara,b,c:longint;beginread(a,b,c);if (a+b>c) and (a+c>b) and (c+b>a) then write('Yes')                                   else write('No');end.