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

  write(*,*) ans
  stop
  deallocate(h)
 end program answer