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

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-4)and(x<=-1)and(y>=-1)and(y<=6)or<br> (abs(x)<=1)and(abs(y)<=1)or<br> (x>=1)and(x<=4)and(y>=-1)and(y<=8)<br> then writeln('Да')
else writeln('Нет')
end.

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