program kadai
implicit none
integer  ::  N,K
integer,allocatable  ::  h(:)
integer  ::  ans,i

read(*,*) N,K
allocate(h(N))
read(*,*) h

ans=0
do i=1,N
    if (h(i)>K-1) then
        ans=ans+1
    end if
end do
write(*,*) ans
stop
contains
end program kadai