program CheckPointInArea;
var
x, y: integer;
begin
writeln('Enter the x coordinate:');
readln(x);
writeln('Enter the y coordinate:');
readln(y);
if ((x >= -3) and (x <= 3) and (y >= -3) and (y <= 3)) or
((x >= -1) and (x <= 1) and (y >= -1) and (y <= 1)) then
writeln('The point belongs to the shaded area.')
else
writeln('The point does not belong to the shaded area.');
end.

В данной программе мы задаем координаты точки (x, y) и проверяем, принадлежит ли она заштрихованной области на координатной плоскости (границы области включены). Если точка принадлежит области, программа выводит сообщение "Точка принадлежит заштрихованной области", иначе выводится сообщение "Точка не принадлежит заштрихованной области".