import Data.List

main = do
  getLine
  li <- getLine
  let hs = map read $ words li
  let ans = compute hs
  print ans

compute :: [Int] -> Int
compute hs = maximum $ (0 :) $ map length $ filter head $ group $ zipWith (>=) hs (tail hs)
