module Main where

import Data.Functor ((<$>))

area :: Int -> Int -> Int
area w h = w * h

perimeter :: Int -> Int -> Int
perimeter w h = w + w + h + h

main = do
  [w, h] <- map read . words <$> getLine
  putStrLn $ show (area w h) ++ " " ++ show (perimeter w h)

