洛谷 P1003 铺地毯

var a1:array[0..10002,1..4] of longint;
a,b,g,k,i,x,y,n,ans:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a,b,g,k);
a1[i,1]:=a;a1[i,2]:=b;a1[i,3]:=g+a;a1[i,4]:=k+b;
end;
readln(x,y);
for i:=n downto 1 do
if (a1[i,1]<=x) a
4000
nd (a1[i,3]>=x) and (a1[i,2]<=y) and (a1[i,4]>=y)
then begin writeln(i);exit;end;
writeln(-1);
end.