написать программу которая выясняет точка (x,y)заштрихованной фигуре c<R x<0 y>0

var

 x, y, R, c: real;

begin

 c := 2; // тут задаётся радиус (на доске он вроде равен двум)

 Write('введите через пробел координаты x, y: ');

 Read(x, y);

 R := Sqrt(Sqr(x) + Sqr(y));

 if (c < R) and (x < 0) and (y > 0) then

   Write('точка принадлежит данной фигуре')

 else Write('точка не принадлежит данной фигуре');

end.

Второй скрин- показывает данную фигуру (заполнена случайными точками).