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.