#include <stdio.h>


int v[7001];



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