area a b = a*b
circumference a b = 2 * (a+b)

main = do
    ls <- getLine
    let [a,b] = map read . words $ ls :: [Int]
        menseki = area a b
        syuu = circumference a b
    putStrLn $ (show menseki) ++ " " ++ (show syuu)
        
