import Data.List

main :: IO ()
main = getLine >>= main' . map read . words
    where
        main' xs = getLine >>= print . solve xs . map read . words

solve :: [Int] -> [Int] -> Int
solve [l1, l2, l3] ys = sum $ zipWith (*) ls ts
    where
        a = (l1 + l2) * 2
        b = (l2 + l3) * 2
        c = (l3 + l1) * 2
        ls = sort [a, b , c]
        ts = sortBy (flip compare) ys