main = do
    line <- getLine
    do
        let (x:y:_) = words line
        let a = read x :: Int
        let b = read y
        putStr $ show $ a * b
        putChar ' '
        putStrLn $ show $ 2 * (a + b)