:треугольник существует только тогда, когда сумма любых двух его сторон больше третьей. дано: a, b, c – стороны предполагаемого треугольника.требуется сравнить длину каждого отрезка с суммой двух других. если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.

Uses crt;
var a,b,c:integer;
begin
write ('Длины сторон: ');
readln (a,b,c);
if a < b+c then
if b < a+c then
if c < a+b then
writeln ('Треугольник существует.')
else
writeln ('Треугольник не существует.')
else
writeln ('Треугольник не существует.')
else
writeln ('Треугольник не существует.');
readln
end.