var
x,y: real;
begin
write('Ввести x, y: ');
readln(x,y);
if (sqrt(x*x+y*y)<=1)and(x*y>0) then
writeln('Точка принадлежит) else
writeln('Точка не принадлежит ');
readln;
end.
var
x,y: real;
begin
write('Ввести x, y: ');
readln(x,y);
if (sqrt(x*x+y*y)<=1)and(x*y>0) then
writeln('Точка принадлежит) else
writeln('Точка не принадлежит ');
readln;
end.