ll@n,@a[n];
sortA(n,a);
ll m=n/2;
ll q1=a[m-1>>1]+a[m>>1];
ll q2=a[n-1>>1]+a[n>>1];
ll q3=a[n+~(m-1>>1)]+a[n+~(m>>1)];
ll i=bsearch_min[ll,i,0,n](a[i]*4>=q1*2-3*(q3-q1));
ll j=bsearch_min[ll,j,0,n](a[j]*4>q3*2+3*(q3-q1));
wt(q1*.5,q2*.5,q3*.5,i+n-j);