Нужно найти заштрихованую область

[majjestik]

Нужно создать программу в паскале, которая будет находить принадлежит ли точка заштрихованой области. Для круга я уже написал:
program tochka;
uses crt;
var x,y:real;
begin
CLRSCR;
write ('input ->x');
readln (x);
write ('input ->y');
readln (y);
if ((sqr(x)+sqr(y))<=4) and not ((x<0) and (y<0)) then
write ('nalezit')
else write ('ne nalezit');
end.

А дальше не знаю =
(

[Somebody]

И где же заштрихованная область?

[majjestik]

Серый цвет по бокам))