Паскаль ABC
Определить принадлежность точки заштрихованной области:

var x,y:integer;

begin

writeln('Введите координату х');

readln(x);

writeln('Введите координату y');

readln(y);

if ((x >= 2) or (x < -4)) then

writeln('Точка лежит в заштрихованной области')

else

writeln('Точка не лежит в заштрихованной области');

end.