import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS

readInt = fst . fromJust . BS.readInteger
readIntList = map readInt . BS.words
getIntList = readIntList <$> BS.getLine

solve :: [Integer] -> String
solve argList = show $ min pa b
    where
        n = head argList
        a = head $ tail argList
        b = last argList
        pa = n * a

main = do
    argList <- getIntList
    putStrLn $ solve argList