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

Программа для паскаляprogram treug;var a,b,c: integer;beginwrite (' Введите длины сторон ');readln (a,b,c);if (a < b+c) and (b < a+c) and (c < a+b) thenwriteln (' Треугольник существует')else writeln (' Треугольник не существует ');end.