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

ans = 0
(n - 2).times do |i|
    k = i + 2
    (i + 1).upto(n - 2) do |j|
        k += 1 if k == j
        k += 1 while k < n && l[k] < l[i] + l[j]
        ans += k - 1 - j
    end
end

puts ans