import qualified Data.ByteString.Char8         as BC
import           Data.Maybe                     ( fromJust )
import           Control.Applicative

readInts = map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine

main :: IO ()
main = do
    [a, b] <- readInts
    putStrLn (show (a * b) ++ " " ++ show (2 * a + 2 * b))

