var A,B,C,N,i,j,m,k:integer;
    rezerva:array[1..810] of integer;


function verificare(i,j,k:integer):boolean;
begin
    verificare:=true;
    if rezerva[i]+rezerva[j]<rezerva[k] then verificare:=false;
    if rezerva[i]+rezerva[k]<rezerva[j] then verificare:=false;
    if rezerva[k]+rezerva[j]<rezerva[i] then verificare:=false;
end;


Begin
      assign(input,'nrtri.in'); reset(input);
      assign(output,'nrtri.out'); rewrite(output);
      readln(input,n);
      for i:=1 to n do read(input,rezerva[i]);
      m:=0;
       for i:=1 to n-2 do
        for j:=i+1 to n-1 do
         for k:=j+1 to n do
         begin
              if verificare(i,j,k) then inc(m);
         end;
      write(output,m);
      close(input);
      close(output);
End.