Язык–pascal написать программу решения задачи пользователь вводит 3 целых числа программа выдаёт сообщение о том, что треугольник с такими сторонами существует (или нет)
Program Brainy;Var a, b, c: integer;BeginWrite ('Длины сторон a, b и с: ');Readln (a,b,c);if (a < b+c) and (b < a+c) and (c < a+b) thenWriteln ('Треугольник существует') elseWriteln ('Треугольник не существует');Readlnend.
