ll@n,@m,@a[n],j=0,z=0;
sortA(n,a);
rep(i,n){
	a[i]*=2;
	if(a[i]>=m){
		while(a[i]-a[j]>m){
			++j;
		}
		if(a[i]-a[j]==m){
			++z;
		}
	}
}
wt(z*(n-2));