var a,b,g,k:array[1..10000]of longint; i,n,j,x,y:longint;begin read(n); for i:=1 to n do readln(a[i],b[i],g[i],k[i]); read(x,y); for i:=n downto 1do if (x>=a[i])and(y>=b[i])and(x<=a[i]+g[i])and(y<=b[i]+k[i]) then begin write(i); halt; end; write('-1');end.
