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.
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.