let n = stdin.ReadLine() |> int
let w = stdin.ReadLine().Split() |> Array.map int
let rec loop s c l =
    if s = n then (c :: l)
    elif w.[s - 1] >= w.[s] then loop (s + 1) (c + 1) l
    else loop (s + 1) 0 (c :: l)
loop 1 0 [] |> List.max |> printfn "%d"