var a,b,c:real; F:byte;begin Write('Введите длины сторон треугольника: '); Readln(a,b,c); if (a<b+c) and (b<a+c) and (c<a+b) and (a>0) and (b>0) and (c>0) then F:=1 else F:=0; if F=1 then Writeln('Треугольник можно построить') else Writeln('Треугольник построить нельзя')end.
Тестовые решения:Введите длины сторон треугольника: 3 4 5Треугольник можно построитьВведите длины сторон треугольника: 1 1 1Треугольник можно построитьВведите длины сторон треугольника: 0 4 5Треугольник построить нельзяВведите длины сторон треугольника: -3 6 5Треугольник построить нельзяВведите длины сторон треугольника: 2 1 8Треугольник построить нельзя