Даны два числа a, b, c. определить существует ли треугольник с такими сторонами

Программа для паскаля

program treug;

var a, b, c: integer;

begin

write (' Введите длины сторон ');

readln (a, b, c);

if (a < b+c) and (b < a+c) and (c < a+b) then

writeln (' Треугольник существует')

else writeln (' Треугольник не существует ');

end.