# frozen_string_literal: true

n = gets.to_i
l = gets.split.map(&:to_i).sort
cnt = 0

0.upto(n - 1) do |i|
  (i + 1).upto(n - 1) do |j|
    idx = l.bsearch_index { |e| e >= l[i] + l[j] } || n
    cnt += idx - 1 - j
  end
end

puts cnt