program main
  implicit none
  
  integer ::i,j,n,h(100000)=0,k,he=0
  read(*,*)n
  read(*,*)(h(i),i= 1,n)
  
  do i = 1, n-1
    k = 0
    do j = i, n-1
      if (h(j) >= h(j+1)) then
        k = k + 1
      else
        exit
      end if
    end do
    if (k > he) then
      he = k
    end if
    if (he >= (n-i-1)) then
      exit
    end if
  end do
  
  write(*,'(i0)')he
end program main