Составить программу, по которой определяется, лежит ли точка с заданными координатами (x, y) внутри заштрихованной области.

составим уравнения прямых  var x,y: real;beginread(x,y);if (y>=0) and (y<=x+4) and (y<=-x+4) then writeln('Принадлежит') else writeln('Не принадлежит');end.