main = getLine >>=  putStrLn . solve . map read . words

solve :: [Int] -> String
solve (x:y:[]) = (getRect x y) ++ " " ++ (getLong x y)
    where getRect x y = show $ x * y
          getLong x y = show $ (x + y) * 2
