program prob1
    implicit none
    integer :: n, k
    integer :: ans, i
    integer, allocatable :: h(:)
    ans = 0
    read(*,*) n, k
    allocate(h(N))

    read(*,*) h

    do i = 1, n
        if(h(i) >= k) then
            ans = ans + 1
        end if
    end do
    write(*,*) ans

    stop
contains
end program prob1