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

var a, b, c: integer; beginwrite (\'Введите значение a: \');read (a);write (\'Введите значение b: \');read (b);write (\'Введите значение c: \');read (c);if (a < b + c) and (b < a + c) and (c < a + b) then writeln (\'Числа a, b, c могут являться длинами сторон треугольника.\')elsewriteln (\'Числа a, b, c не могут являться длинами сторон треугольника.\');end.