Module _20190421

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Dim iOnceMoney As Integer = sRead.Split(" ")(0)
        Dim iHaveMoney As Integer = sRead.Split(" ")(1)
        Dim iMaxCount As Integer = sRead.Split(" ")(2)

        Dim iAbleCount As Integer = iHaveMoney / iOnceMoney

        If iMaxCount > iAbleCount Then

            Console.WriteLine(iAbleCount)

        Else

            Console.WriteLine(iMaxCount)

        End If

    End Sub

End Module