let n = stdin.ReadLine () |> int

let mutable a = Array.empty
for i in 0..n-1 do
    a <- Array.append a [|i, stdin.ReadLine () |> int|]
    a
        |> Array.sortWith (fun (n1, s1) (n2, s2) -> if s1 = s2 then compare n1 n2 else compare s2 s1)
        |> Array.findIndex (fst >> ((=)0))
        |> ((+)1)
        |> printfn "%d"