program main
  implicit none
  integer i,N,K,ans
  integer,allocatable :: H(:)
  read(*, *)N,K
  allocate(H(N))
  read(*, *) (H(i), i = 1,N)
  ans = 0
  do i = 1,N
    if (H(i) >= K) then
      ans = ans + 1
    end if
  end do
  write(*, *) ans
end program main
