N = gets.chomp.to_i
LS = gets.chomp.split.map(&:to_i).sort

ans = 0
LS.size.times do |i|
  a = LS[i]
  (i + 1).upto(LS.size - 1) do |j|
    b = LS[j]
    cs = LS[(j + 1)..-1]
    index = cs.bsearch_index { |c| c >= a + b }
    index = cs.size if index.nil?
    ans += index
  end
end

puts ans 
