Составим уравнения прямых var x,y: real; begin read(x,y); if (y>=0) and (y<=x+4) and (y<=-x+4) then writeln('Принадлежит') else writeln('Не принадлежит');<br>end.
большое спасибо!
а можно спросить, как вы составили эти уравнения?