var N, x, y, i: integer; begin write(' N = '); readln(N);
for i:=1 to N do
begin writeln ('x='); readln(x);writeln ('y='); readln(y);if y=abs(x) tnen write(' принадлежит ')else write(' не принадлежит ');end;
end.
var N, x, y, i: integer;
begin
write(' N = ');
readln(N);
for i:=1 to N do
begin
writeln ('x='); readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else write(' не принадлежит ');
end;
end.