Из математики: треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения:
program qq; uses crt; var a, b, c, p: integer; begin p:=0; // обнуляем переменную writeln('Введите через пробел значения a, b и с'); readln (a, b, c); if a<=(b+c) then if b<=(a+c) then if c<=(b+a) then p:=1; //если все условия //выполнены то треугольник //существует. присваиваем переменной значение 1. writeln (p); end.
