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

var  x, y: real;begin  write('x: ');  readln(x);  write('y: ');  readln(y);  if ((x >= -6) and (x <= -1)) and ((y <= 7) and (y >= 2)) or (((x <= -3) and (x >= -6)) and ((y >= -3) and (y <= 2)))    then writeln('Точка принадлежит закрашенной области')  else writeln('Точка не принадлежит закрашенной области');end.