ll@n,@m,@a[n],j=0,z=0,d;sortA(n,a);rep(i,n)for(;d=2a[i]-2a[j]-m,z+=!d,d>0;)++j;wt(z*=n-2);