Var x, y : real;

begin
write(x = );
readln(x);
write(y = );
readln(y);
if (y gt; -1) and (y lt; 1) and (x lt;= 0) and (x gt; -1) then
write(Принадлежит!)
else
write(Не принадлежит!);
end;