let N=stdin.ReadLine() |> int
let H=stdin.ReadLine().Split() |> Array.map int
let rec f i p a=
    if i=N then (max p a)
    elif H.[i]<=H.[i-1] then f (i+1) (p+1) a
    else f (i+1) 0 (max p a)
f 1 0 0 |> stdout.WriteLine