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

procedure sorteaza;
begin
    for i:=1 to n-1 do
    for j:=i+1 to n do
     if rezerva[j]<rezerva[i] then
     begin
         rezerva[i]:=rezerva[i] xor rezerva[j];
         rezerva[j]:=rezerva[i] xor rezerva[j];
         rezerva[i]:=rezerva[i] xor rezerva[j];
     end;

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]);
      sorteaza;
     // for i:=1 to n do write(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
              A:=rezerva[i]; B:=rezerva[j]; C:=rezerva[k];
              if (A+B>=C) and (A+C>=B) and (B+C>=A) then inc(m)
              else break
         end;
      write(output,m);
      close(input);
      close(output);
End.