N = gets.chomp.to_i
L = gets.chomp.split.map(&:to_i)
ans = 0
(0..N - 3).each do |i|
  (i + 1..N - 2).each do |j|
    (j + 1..N - 1).each do |k|
      ans += 1 if L[i] < L[j] + L[k] && L[j] < L[k] + L[i]  && L[k] < L[i] + L[j]
    end
  end
end
puts ans
