import Control.Applicative

calcArea :: Int -> Int -> Int

calcArea x y
    = x * y
    
calcLength :: Int -> Int -> Int

calcLength x y
    = 2 * (x + y)
    
lineUp :: Show a => [a] -> String

lineUp xs
    = init $ concat [show x ++ " " | x <- xs]
    
solve :: [Int] -> [Int]

solve input
    = [calcArea x y, calcLength x y] where
        x = input !! 0
        y = input !! 1

main :: IO ()
    
main
    = do
        input <- map read.words <$> getLine
        putStrLn $ lineUp $ solve input