open List
let n = read_int ()
let h = Array.init n @@ fun _ -> Scanf.scanf "%d " @@ fun d -> d
let f (num,m,tmp) b =
  if m >= b then (num,b,tmp+1) else if num < tmp then (tmp,b,0) else (num,b,0)
let ans = fold_left (fun (n,m,t) b -> f (n,m,t) b) (0,h.(0),0) (tl (Array.to_list h))
let () = print_int (match ans with (n,m,t) -> if n < t then t else n)