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