Из математики: треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения: 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<br> if b<=(a+c) then<br> if c<=(b+a) then<br> p:=1; //если все условия //выполнены то треугольник //существует. присваиваем переменной значение 1. writeln (p); end.