ll@n,x[n],y[],z=0;
rd((x,y)(n));
rep(j,n){
	rep(i,j){
		ll nx=y[j]-y[i];
		ll ny=x[i]-x[j];
		ll d0=ll_inf;
		ll d1=-ll_inf;
		ll k0=0;
		ll k1=0;
		rep(k,n){
			if(k!=i&&k!=j){
				ll d=nx*x[k]+ny*y[k];
				if(d0>d){
					d0=d;
					k0=k;
				}
				if(d1<d){
					d1=d;
					k1=k;
				}
			}
		}
		z>?=d1-d0;
	}
}
wt(z);