module Main where

main :: IO ()
main = do
  { line1 <- getLine
  ; let [x,y] = map read (words line1) :: [Int]
  ; let area = x * y
  ; let peri = 2 * (x + y)
  ; putStrLn (unwords (map show [area, peri]))
  }