program bbb

implicit none
integer :: n, k, i, co
integer, allocatable, dimension(:) :: h

read*, n, k
allocate(h(n))
read*, h

co = 0

do i=1,n
if (h(i)>=k) co=co+1
end do

write(*,'(i0)') co

end program