Для каждой задачи составить программу , содержащую ветвления и определяющую , принадлежит ли точка с координатами (х;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.