program lower
  implicit none
  integer :: n, h(100001) = 0, i = 1, j = 1, m = 0
  read(*,*) n
  read(*,*) h(1:n)
  h(n+1) = 2e9
  do while (i <= n)
    if (h(i) < h(i+1)) then
      m = max(m,i-j)
      j = i+1
    end if
    i = i+1
  end do
  write(*,'(i0)') m
end program lower