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.
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.