#include <fstream.h>

ifstream f("medie.in");
ofstream g("medie.out");

int a[9002],rep[7002],n;
long NrSol,v[7002];

void citire ()
{ f>>n; 
  for (int i=1; i<=n; i++)
   f>>a[i];
  f.close ();
}

void search ()
{  int i,j,aux;
   #define div2(x) (!((x)&1)) //verifica daca x e divizibil cu 2
   for (i=1; i<n; i++)
    { ++rep[a[i]];
      for (j=i+1; j<=n; j++)
       if (div2(aux=a[i]+a[j]))
        ++v[aux>>1];
    }
    ++rep[a[n]];
    for (i=1; i<=n; i++) 
     if (v[a[i]]) NrSol+=long(v[a[i]]-rep[a[i]]+1);
}

void scrie ()
{ g<<NrSol;
  g.close ();
}

int main ()
{ citire ();
  search ();
  scrie ();
  return 0;
}