package main

import (
	"bufio"
	"fmt"
	"log"
	"math"
	"os"
	"strconv"
)

func setBit(d, n int) int {
	t := 1 << uint(n)
	return d | t
}
func bitExist(n, i int) bool {
	return ((n >> uint(i)) & 1) == 1
}
func bitCount(n uint) int {
	x := uint64(n)
	const m = 1<<64 - 1
	const m0 = 0x5555555555555555
	const m1 = 0x3333333333333333
	const m2 = 0x0f0f0f0f0f0f0f0f
	x = x>>1&(m0&m) + x&(m0&m)
	x = x>>2&(m1&m) + x&(m1&m)
	x = (x>>4 + x) & (m2 & m)
	x += x >> 8
	x += x >> 16
	x += x >> 32
	return int(x) & (1<<7 - 1)
}

func main() {
	N := nextInt()
	o := nextInts(3)
	target := [][]int{}
	target = append(target, []int{o[0], o[1], o[2]})
	target = append(target, []int{o[0], o[2], o[1]})
	target = append(target, []int{o[1], o[0], o[2]})
	target = append(target, []int{o[1], o[2], o[0]})
	target = append(target, []int{o[2], o[0], o[1]})
	target = append(target, []int{o[2], o[1], o[0]})
	m := make(map[int]bool, 3)
	for _, v := range o {
		m[v] = true
	}
	uc := 0
	l := []int{}
	for i := 0; i < N; i++ {
		t := nextInt()
		if m[t] {
			m[t] = false
			uc = setBit(uc, i)
		}
		l = append(l, t)
	}
	res := 10000000
	for _, mt := range target {
		tres := 0
		tuc := uc
		for _, v := range mt {
			if !m[v] {
				continue
			}
			mindiff := 100000
			minset := 0
			for i := 1; i < (1 << uint(N)); i++ {
				cf := false
				for j := 0; j < 8; j++ {
					if bitExist(tuc, j) && bitExist(i, j) {
						cf = true
						continue
					}
				}
				if cf {
					continue
				}
				tdiff := 0
				tsum := 0
				tdiff += (bitCount(uint(i)) - 1) * 10
				for t := 0; t < N; t++ {
					if bitExist(i, t) {
						tsum += l[t]
					}
				}
				tdiff += abs(tsum - v)
				if mindiff > tdiff {
					mindiff = tdiff
					minset = i
				}
			}
			tres += mindiff
			tuc = tuc | minset
		}
		if res > tres {
			res = tres
		}
	}
	fmt.Println(res)
}

var dy = []int{1, 0, -1, 0, 0}
var dx = []int{0, 1, 0, -1, 0}
var inf = int(1e9)

func fill(a *[]int, n int) {
	for i := 0; i < len(*a); i++ {
		(*a)[i] = n
	}
}

func makeDoubleSlice(n int, m int) [][]int {
	s := make([][]int, n)
	for i := 0; i < n; i++ {
		s[i] = make([]int, m)
	}
	return s
}

func pow(a, b int) int {
	return int(math.Pow(float64(a), float64(b)))
}

func lcm(a, b int) int {
	return a * b / gcd(a, b)
}
func gcd(a, b int) int {
	if a < b {
		a, b = b, a
	}
	for b != 0 {
		a, b = b, a%b
	}
	return a
}
func max(a ...int) int {
	r := a[0]
	for i := 0; i < len(a); i++ {
		if r < a[i] {
			r = a[i]
		}
	}
	return r
}
func min(a ...int) int {
	r := a[0]
	for i := 0; i < len(a); i++ {
		if r > a[i] {
			r = a[i]
		}
	}
	return r
}
func sum(a []int) (r int) {
	for i := range a {
		r += a[i]
	}
	return r
}
func abs(a int) int {
	if a < 0 {
		return -a
	}
	return a
}

type pair struct {
	a, b int
}

type pairs []pair

func (p pairs) Len() int {
	return len(p)
}
func (p pairs) Swap(i, j int) {
	p[i], p[j] = p[j], p[i]
}

func (p pairs) Less(i, j int) bool {
	if p[i].a == p[j].a {
		return p[i].b < p[j].b
	}
	return p[i].a < p[j].a
}

var nextReader func() []byte

func init() {
	nextReader = newScanner()
	log.SetFlags(log.Lshortfile)
}

func newScanner() func() []byte {
	r := bufio.NewScanner(os.Stdin)
	r.Buffer(make([]byte, 1024), int(1e+11))
	r.Split(bufio.ScanWords)
	return func() []byte {
		r.Scan()
		return r.Bytes()
	}
}
func nextBytes() []byte {
	return nextReader()
}

func nextString() string {
	return string(nextReader())
}
func nextInt64() int64 {
	v, _ := strconv.ParseInt(string(nextReader()), 10, 64)
	return v
}
func nextInt() int {
	v, _ := strconv.Atoi(string(nextReader()))
	return v
}
func nextInts(n int) []int {
	r := make([]int, n)
	for i := 0; i < n; i++ {
		r[i] = nextInt()
	}
	return r
}
func nextFloat64() float64 {
	f, _ := strconv.ParseFloat(string(nextReader()), 64)
	return f
}


Measured memory_bytes: 640