Написать программу, которой передаются координаты точки (x,
y) и которая определяет, попадает ли точка в заштрихованную область на рисунке,
который соответствует Вашему варианту. Попадание на границу области считать
попаданием в область.(VBA)

program qq;uses crt;var x, y: real;beginreadln (x, y);if (x*y)<0 then   //проверка четверти, в к-й находится точка                if (x*x+y*y)<=1 then   // где x^2+y^2=r^2 - ур-е окружности. точка попадает в круг радиусом 1, если радиус окр-ти на которой она лежит, меньше 1                                                            writeln ('попадает')                                                          else                                                                   writeln ('не попадает')                         else                                                writeln ('не попадает');end.