Задачи на определение принадлежности точки области Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами x, y заштрихованной области

Var x,y:real;BeginWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);if (y>=5-x)and(y<=11-x)and(y>=x-3)and(y<=x+3) then Write('Принадлежит')else Write('Не принадлежит')End.

Var x,y:real;BeginWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);if (y>=5-x)and(y<=11-x)and(y>=x-3)and(y<=x+3) then Write('Принадлежит')else Write('Не принадлежит')End.