type vec=array[1..320400,1..3]of word;
	 aec=array[1..800]of word;
var  a:aec;
	 v:vec;
     n,r,e:longint;	

procedure readdata;
var f:text;
	i,x,j:longint;
begin
assign(f,'nrtri.in'); reset(f);
readln(f,n);

//for i:=1 to n do read(f,a[i]);

read(f,a[1]);
for i:=2 to n do
		
        begin
        	read(f,x);
            j:=i;
            while (x<a[j-1]) do begin
            	a[j]:=a[j-1];
                dec(j);
            end;
            a[j]:=x;
        end;

close(f);
end;

function find(x:longint):longint;
var ps,pd,m:longint;
	ok:boolean;
begin

	ps:=1; pd:=n;	
	ok:=false;
	while (ps<=pd)and(not ok) do
    	begin
        	m:=(ps+pd)div 2;
            if (x>a[m]) then ps:=m+1
               else if (x<a[m]) then pd:=m-1
               		else begin find:=m; exit(0); end;
        end;

    find:=m;

end;

    	

procedure solve;
var i,j,k,s,sr:longint;
begin

for i:=1 to n do
	for j:=i+1 to n do
    	 begin
		   inc(e);
           v[e,1]:=i; v[e,2]:=j;
           v[e,3]:=a[i]+a[j];
         {
           k:=find(a[i]+a[j]);
           r:=r+k;
           if (i<k) then dec(r);
           if (j<k) then dec(r);
         }
         end;

    for i:=1 to e do
    	for j:=v[i,2]+1 to n do
            if (v[i,3]>=a[j])and(j<>v[i,1])and(j<>v[i,2])
            	then inc(r);

                {
                inc(e); v[e,1]:=a[i]+a[j];
                v[e,1]:=i; v[e,2]:=j;
                }
{for i:=1 to e do
	for j:=n downto 1 do
    		if (a[j]>a[v[i,1]]+a[v[i,2]])and( (j<>v[i,2])or(j<>v[i,1]) )
            then inc(r)
            else break;

r:=r div 2;
}

end;

procedure writedata;
var f:text;
begin
assign(f,'nrtri.out'); rewrite(f);
writeln(f,r);
close(f);
end;

Begin
readdata;
solve;
writedata;
End.