import Control.Applicative

main :: IO ()
main = do
  xy <- (map read . words) <$> getLine
  putStrLn (show (area (xy !! 0) (xy !! 1)) ++ " " ++ (show (surroundings (xy !! 0) (xy !! 1))))

area :: Int -> Int -> Int
area x y = x * y

surroundings :: Int -> Int -> Int
surroundings x y = 2 * (x + y)