Даны два числа 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.