N = gets.to_i
L = gets.split.map!(&:to_i).sort!

ans = 0
0.upto(N-3) do |ai|
  a = L[ai]
  (ai+1).upto(N-2) do |bi|
    b = L[bi]
    ci_max = L.bsearch_index { |c| c >= a + b } || N

    ans += ci_max - bi - 1
  end
end

puts ans