Нужно 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.