Определить, сколько из n заданных точек принадлежат графику функции y=|x|

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.