<————————————————————————————————————————————————————————>
附： 题目链接， vijos 1736 地址 https://www.vijos.org/p/1736
<————————————————————————————————————————————————————————>
var
a,b,c,d:array[0..10001] of longint;
n,m,i,j,k:longint;
<————————————————————————————————————————————————————————>
纯枚举 - = 一开始想到离散化 - = 然后逗比了 数据范围不大，完全可以枚举 - = 大水题- -
<————————————————————————————————————————————————————————>
begin
readln(n);
for i := 1 to n do readln(a[i],b[i],c[i],d[i]);
readln(j,k);
<————————————————————————————————————————————————————————>
读入数据
<————————————————————————————————————————————————————————>
for i := n downto 1 do //从 后放的 开始 枚举
if (a[i] <= j) and (a[i] + c[i] >=j) and(b[i] <= k) and (b[i] + d[i] >=k) then begin //如果 有覆盖 ，跳出 循环
writeln(i);
halt;
end;
<————————————————————————————————————————————————————————>
writeln(-1); //做到这代表 没有覆盖 ， 输出-1
end.