Определить, сколько из 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.