import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

readInts :: IO [Int]
readInts = map read . words <$> getLine

solve [n, a, b] = min b $ n * a

main = solve <$> readInts >>= print