Module Module1

    Sub Main()

        Dim tmp() As String = Split(Console.ReadLine())
        Dim N As Integer = CInt(tmp(0))
        Dim K As Integer = CInt(tmp(1))

        Dim tmp2() As String = Split(Console.ReadLine())

        Dim c As Integer
        Dim ans As Integer = 0

        For c = 0 To N - 1
            If CInt(tmp2(c)) >= K Then
                ans += 1
            End If
        Next

        Console.WriteLine(ans)
        Console.Read()

    End Sub

End Module
