module Main (main) where

main :: IO ()
main = do
  [x,y] <- (map read . words) <$> getLine 
  putStr $ show $ area x y
  putStr " "
  putStrLn $ show $ circum x y

area x y = x * y

circum x y = 2 * x + 2 * y