const NMAX=30002;
var n,i,j,k:integer;
    v:array[0..801] of integer;
    nr:array[0..NMAX]of integer;
    f,g:text;
    sol:longint;
begin
 assign(f,'nrtri.in');reset(f);
 assign(g,'nrtri.out');rewrite(g);
 readln(f,n);
 for i:=1 to n do
  begin
  read(f,v[i]);
  inc(nr[i]);
  end;
 for i:=1 to NMAX do
  nr[i]:=nr[i]+nr[i-1];
 for i:=1 to n do
  for j:=i+1 to n do
   if (v[i]>v[j]) then
    begin
    k:=v[i];
    v[i]:=v[j];
    v[j]:=k;
    end;
 sol:=0;
 for i:=1 to n do
  for j:=i+1 to n do
   begin
   k:=v[i]+v[j];
   if k>NMAX then k:=NMAX;
   sol:=sol+(nr[k]-nr[j]);
  end;
 write(g,sol div 2);
 close(f);close(g);
end.