let n = stdin.ReadLine () |> int let mutable ans = 1 let score = stdin.ReadLine () |> int printfn "%d" ans for i in 1..n-1 do if stdin.ReadLine () |> int > score then ans <- ans + 1 printfn "%d" ans