Составить программу(паскаль), проверяющую принадлежность точки заштрихованной области с выводом соответствующего результата на экран. Координаты точки вводятся с клавиатуры
Var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if (x*x+y*y<=6*6)and((x<=0)or(y<=0))<br> then writeln('Да') else writeln('Нет') end. Пример: x = -3 y = 3 Да