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

ans = 0
(N-1).downto(2) do |i|
  (i-1).downto(1) do |j|
    l = [L[i] - L[j], L[j] - L[i]].max
    li = L[0..j-1].bsearch_index { |x| x > l }
    ans += j - li if li
  end
end

puts ans
