15 , по второму рисунку
в паскале

PascalABC.NET

begin

 var (x, y) := ReadReal2('Введите X, Y:');

 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 >= 0) and (y <= 0) then

   Writeln('Да')

 else

   Writeln('Нет')

end.