#include<cstdio>
int x,y,v[9001],i,j,h,nr,vec[10001],s;
int main ()
{
freopen("medie.in","r",stdin);
freopen("medie.out","w",stdout);
int n;
scanf("%d",&n);
for(i=1;i<=n;i++)
    scanf("%d",&v[i]);
for(i=1;i<n;i++)
    for(j=i+1;j<=n;j++)
        if(v[i]%2==v[j]%2)
            vec[(v[i]+v[j])/2]++;
for(i=1;i<=n;i++)
    s+=vec[v[i]];
printf("%d",s);
return 0;
}