Option Strict On

Module Module1
    Dim T, A, B As Long


    Sub Main()
        Dim tmp() As Long = Array.ConvertAll(Of String, Long) _
            (Console.ReadLine().Split(), AddressOf Long.Parse)

        'let'
        T = tmp(0) : A = tmp(1) : B = tmp(2)

        Console.WriteLine(
            Math.Min(A * T, B)
        )

    End Sub

End Module