Даны три отрезка со сторонами a,b,c. Выяснить можно ли построить треугольник с данными сторонами, если - да, то переменной y присвоить значение 1, иначе - 0.

Из математики: треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения: 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.