Даны целые числа a, b, c. Проверить истинность высказывания: «Существует треугольник со сторонами a, b, c»

Program Boolean33;
Var
a,b,c:Integer;
Begin
ReadLn(a,b,c);
WriteLn((a < b + c) And (b < a + c) And (c < a + b));
end.

автор: Sklyarov Sergej a.k.a. S9