import Control.Applicative
main = do
    solve
solve = do
    n <- fmap (read :: String -> Int) . words <$> getLine
    let area = (n !! 0) * (n !! 1)
        length = ((n!!0) + (n!!1)) * 2
    putStrLn $ show area ++ " " ++ show length