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

var

x, y: real;

begin

write ('x='); readln(x);

write ('y='); readln(y);

if (sqr(x)+sqr(y)<=1) and (x*y<=0) then

writeln ('точка принадлежит данной области')

else

writeln ('точка не принадлежит данной области');

end.