Написать программу чтобы точка попадала в заштрихованную область.Срочно пожалуйста.

Var x,y : real;
begin
write(x = ); readln(x);
write(y = ); readln(y);
if (xgt;=-4)and(xlt;=-1)and(ygt;=-1)and(ylt;=6)or
   (abs(x)lt;=1)and(abs(y)lt;=1)or
   (xgt;=1)and(xlt;=4)and(ygt;=-1)and(ylt;=8)
  then writeln(Да)
  else writeln(Нет)
end.

Пример:
x = 0
y = 2
Нет