import qualified Data.ByteString.Char8 as BC
import Data.Maybe

readIntsLine :: IO [Int]
readIntsLine = map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine

solve :: [Int] -> Int -> Int -> Int
solve [a1, a2] c m = if a1 >= a2 then max (c + 1) m else m
solve (a1:a2:as) c m = if a1 >= a2
                       then solve (a2:as) (c + 1) nextm
                       else solve (a2:as) 0 m
  where nextm = max (c + 1) m

main :: IO ()
main = do
  getLine
  hs <- readIntsLine
  print $ solve hs 0 0