#include <cstdio>
#define DIM 7001

using namespace std;

int a [DIM+5], rez [DIM+5], nr, N, i, j, f [DIM+5];
void solve ()
{
	scanf ("%d\n", &N);
	int suma = 0;
	for (i = 1; i <= N; i++) 
	{
		scanf ("%d\n", &a[i]);
		++ f[ a[i] ];
	}
	
	for (i = 1; i < N; i++)
		for (j = i + 1; j <= N; j++)
		{
			suma = a[i] + a[j];
			if ( (suma & 1) == 0)
			   ++ rez [suma >> 1];
		}
	for (i = 1; i <= N ; i++) 
		nr += rez[a[i]] - f [a[i]] + 1;
		printf ("%d\n", nr);
}
int main ()
{
	freopen ("medie.in", "r", stdin);
	freopen ("medie.out", "w", stdout);
	solve ();
	return 0;
}