import Control.Applicative ((<$>))
import Data.Maybe (fromJust)
import qualified Data.ByteString.Char8 as B
f :: Int -> Int -> [String]
f x y = map show [x * y, (x + y) * 2]

readInts :: IO [Int]
readInts = map (fst . fromJust . B.readInt ) . B.words <$> B.getLine

main :: IO ()
main = do
  (x:y:_) <- readInts
  putStrLn $ unwords $ f x y
