begin

 var (x, y) := ReadReal2('Введи координаты');

 if (x * x + y * y <= 9) and (x * x + y * y >= 4)

   and (x <= 0) and (y >= 0) or

   (x * x + y * y <= 4) and (x >= 9) and (y <= 0) then

   Println('Да')

 else

   Println('Нет');    

end.

===== PascalABC.NET =====