import Control.Applicative
import Text.Printf

main :: IO ()
main = do
  [a, b] <- map read . words <$> getLine
  let (s, p) = solve a b
  printf "%d %d\n" s p

solve :: Int -> Int -> (Int, Int)
solve a b = (a * b, 2 * (a + b))

