import           Data.List (sort)

main = do
  [l1, l2, l3] <- fmap (map read . words) getLine
  ts <- fmap (map read . words) getLine
  let res = sum $ zipWith (*) (sort [ 2 * (l1 + l2)
                                    , 2 * (l2 + l3)
                                    , 2 * (l3 + l1)
                                    ] ) (reverse $ sort ts)
  print res