Module a
  
  Sub Main()
  
    Dim input1 as string
    input1 = Console.ReadLine()

    Dim input2 as string
    input2 = Console.ReadLine()
    
    dim s1() as string = Split(input1," ")
    dim cnt as integer = Cint(s1(0))
    dim k as integer = Cint(s1(1))
    
    dim s2() as string = Split(input2," ")
    
    dim result as integer = 0
  	For i as integer = 1 to cnt 
      if k <= Cint(s2(i-1)) then
      result += 1
      end if
  	Next 

  Console.WriteLine(result)
    
  End Sub
 
End Module
    