let rec loop state = function
    | [] -> state
    | [_] -> state
    | h :: t -> if h >= t.[0] then loop (state + 1) t else state

let n = int (stdin.ReadLine())
let h = stdin.ReadLine().Split() |> Array.map int64 |> List.ofArray
[for i in 0..n -> List.skip i h |> loop 0] |> List.max |> printfn "%d"
