import           Control.Applicative

readIs :: IO [Int]
readIs = map read . words <$> getLine

main = do
  ns <- readIs
  putStrLn $ show (head ns * last ns) ++ " " ++ show ((head ns + last ns) * 2)

