{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set

main :: IO ()
main = do
    [n, a, b] <- map read . words <$> getLine
    print $ min (a * n) b