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

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

puts ans