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

var x, y: real; begin   read(x, y);   if (x >= -4) and (x <= -1) then     if (y >= 1) and (y <= 7) then       writeln('Yes')     else       writeln('No')   else if (x >= -1) and (x <= 3) then     if (y >= 4) and (y <= 7) then       writeln('Yes')     else       writeln('No')   else     writeln('No') end.