program carpet;
var
  n,x,y,i:longint;
  a,b,g,k:array[0..200001]of longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i],b[i],g[i],k[i]);
  readln(x,y);
  for i:=n downto 1 do
  begin
    if (x>=a[i])and(y>=b[i])and(x<=a[i]+g[i])and(y<=b[i]+k[i]) then
    begin
      writeln(i);
      exit;
    end;
  end;
  writeln('-1');
end.

/**************************************************************
	Problem: 2304
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/