import Control.Applicative

main = do
  [x, y] <- words <$> getLine
  let a = read x :: Int
  let b = read y :: Int
  putStr $ show $ (a * b)
  putChar ' '
  putStr $ show$ (2 * (a + b))
  putChar '\n'