для каждой задачи составить программу, содержащую ветвления и определяющую приеадлежит ли точка с координатами (X, Y) заштрихованной области. (Задача 22)

ОТВЕТ

вроде так

var x, y:real;

begin

read(x, y);

if ((x > 2) and (y < 7*(1 - x/6)) and (y > (5*x - 22)/3)) then

writeln('Принадлежит')

else

writeln('Не принадлежит')

end.