Module _20190427

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Dim iMinutes As Decimal = CDec(sRead.Split(" ")(2)) + 0.5

        Dim iEndFlg As Integer = 0
        Dim iTotalCount As Integer = 0
        Dim iLoopCount As Integer = 1

        Do While iEndFlg = 0

            If iLoopCount * sRead.Split(" ")(0) > iMinutes Then

                iEndFlg = 1

            Else

                iTotalCount = iTotalCount + CInt(sRead.Split(" ")(1))

            End If

            iLoopCount = iLoopCount + 1

        Loop

        Console.WriteLine(iTotalCount)

    End Sub

End Module
