N = gets.to_i
A, B, C = gets.split.map(&:to_i)
S = gets.chomp.split.map(&:size)
E = Array.new(N) { Hash.new { |h, k| h[k] = [] } }

[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|
  queue = []

  E[i][A].each do |v|
    queue << v
  end

  n_que = []

  queue.each do |v|
    next if v >= N

    E[v][B].each do |u|
      n_que << u
    end
  end

  n_que.each do |v|
    next if v >= N

    ans += 1 if E[v][C].size > 0
  end
end

puts ans