N = gets.to_i
A, B, C = gets.split.map(&:to_i)
S = gets.chomp.split.map(&:size)
E = Array.new(N) { {} }

[A, B, C].uniq.each do |x|
  l = 0
  r = 0
  num = S[0]

  while l < N
    if num == x
      E[l][x] = r + 1
    end

    if r == N - 1
      num -= S[l]
      l += 1
    elsif num < x
      r += 1
      num += S[r]
    else
      num -= S[l]
      l += 1
    end
  end
end

ans = 0

N.times do |i|
  cur = i

  next if E[cur][A].nil?
  cur = E[cur][A]

  next if cur >= N
  next if E[cur][B].nil?
  cur = E[cur][B]

  next if cur >= N
  next if E[cur][C].nil?

  ans += 1
end

puts ans