import Control.Applicative

main = do
    ss <- (map read . words) <$> getLine
    let area = (head ss) * (ss !! 1)
    let perimeter = 2 * ((head ss) + (ss !! 1))
    putStr $ show area
    putStr " "
    putStr $ show perimeter
    putStrLn ""
