import Control.Monad

main = do
    (n : abc) <- fmap read <$> words <$> getLine
    ls <- forM [1..n] $ \i -> read <$> getLine
    putStrLn $ show $ solve n abc ls

solve :: Int -> [Int] -> [Int] -> Int
solve n abc ls = doit 0 abc ls []
  where
    doit s []       ls  m = 0
    doit 0 (a : bc) []  m = 1000 * 1000
    doit s (a : bc) []  m = abs (s - a) - 10 + doit 0 bc m []
    doit s abc (l : lt) m = min (10 + doit (s + l) abc lt m) (doit s abc lt (l : m))
