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

ans = 0
(n - 2).times do |i|
    (i + 1).upto(n - 2) do |j|
        k = l.bsearch_index{|e| e >= l[i] + l[j]}
        if k == nil
            ans += n - 1 - j
        elsif k - 1 > j
            ans += k - 1 - j
        end
    end
end

puts ans