15(2)разработайте программу, которая выводит «да», если точка с координатами (х, у) принадлежит закрашенной области, и «нет» в обратном случае.

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