#include<cstdio>
using namespace std;

FILE *f;
FILE *g;

int n,a[9001],v[7001],frecv[7001],i,j,k;
long long nr;
int main()
{
	f=fopen("medie.in","r");
	g=fopen("medie.out","w");
	fscanf(f,"%d\n",&n);
	for(i=1;i<=n;i++)
		fscanf(f,"%d\n",&a[i]);
	for(i=1;i<=n;i++)
	{
		frecv[a[i]]++;
		for(j=i+1;j<=n;j++)
			if((a[j]+a[i])%2==0)
				v[a[j]+a[i]/2]++;
	}
	for(i=1;i<=n;i++)
		if(v[a[i]])
		{	nr+=v[a[i]]-frecv[a[i]]+1;}
	fprintf(g,"%d\n",nr);
	fclose(f);
	fclose(g);
	return 0;
}