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