 program main
 implicit none
   integer :: n,k
     read(*,*) n,k
     print*,count_higher(n,k)
contains
  function count_higher(n,k) result(res)
    integer,intent(in) :: n,k
      integer            :: h(n),res
        read(*,*) h
        res = COUNT(h(:)>=k)
  end function count_higher
end program main