solve :: [Int] -> [Int]
solve (x:xs) = [menseki, shui]
    where menseki = x * head xs
          shui = (x + head xs) * 2

main :: IO ()
main = do
    a <- getLine
    let input = solve(map read (words a))
    putStrLn (unwords (map show input))