import Data.List.Split
import Control.Applicative

main = do
  ss <- getLine
  let ns = map read $ splitOn " " ss
  let s1 = ns!!0
  let s2 = ns!!1
  let area = s1 * s2
  let perim = (s1+s2) * 2
  putStrLn $ (show area) ++ " " ++ (show perim)
