題目描述

為了準備一個獨特的頒獎典礼，組織者在會場的一片矩形區域（可看做是平面直角坐標系的第一象限）鋪上一些矩形地毯。一共有 n 張地毯，編號從 1 到n 。現在將這些地毯按照編號從小到大的順序平行于坐標軸先后鋪設，后鋪的地毯覆蓋在前面已經鋪好的地毯之上。

地毯鋪設完成后，組織者想知道覆蓋地面某個點的最上面的那張地毯的編號。注意：在矩形地毯邊界和四個頂點上的點也算被地毯覆蓋。

輸入輸出格式

輸入文件名為carpet.in 。

輸入共n+2 行。

第一行，一個整數n ，表示總共有 n 張地毯。

接下來的n 行中，第 i+1 行表示編號i 的地毯的信息，包含四個正整數 a ，b ，g ，k ，每兩個整數之間用一個空格隔開，分別表示鋪設地毯的左下角的坐標（a ，b ）以及地毯在x軸和y 軸方向的長度。

第n+2 行包含兩個正整數 x 和y，表示所求的地面的點的坐標（x ，y）。

輸出文件名為carpet.out 。

輸出共1 行，一個整數，表示所求的地毯的編號；若此處沒有被地毯覆蓋則輸出-1 。

輸入輸出樣例

31 0 2 30 2 3 32 1 3 32 2輸出樣例#1：
3輸入樣例#2：
31 0 2 30 2 3 32 1 3 34 5
輸出樣例#2：-1
var
 a,b,g,k:array [1..100000] of longint; x,y,e,n,i,j:longint;begin read(n); for i:=1 to n do  read(a[i],b[i],g[i],k[i]);  read(x,y);  e:=0;//歸0，以防算錯  for j:=1 to n do   if (x<=a[j])and(x<=a[j]+g[j])and      (y>=b[j])and(y<=b[j]+k[j]) then e:=j;//以左下、右上角為標記，再向附近查找   write(e);end.