{-# LANGUAGE BangPatterns #-}

import Data.List (foldl', group)

main :: IO ()
main = do
  getLine
  hs <- map read . words <$> getLine
  print $ solve hs

solve :: [Int] -> Int
solve = foldl' max 0 . map length . filter head . group . go
  where
    go [x] = []
    go (x:y:zs) = (x >= y) : go (y:zs)
