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

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.