int a[2d3],x[2d3],y[2d3];
{
	int m,n,t;
	rd(n,y(n));
	x[0..n-1]=y[0..];
	Unique(m=n,x);
	rep(i,n){
		t=int_inf;
		rep(k,m)a[k]=t<?=a[k]+abs(y[i]-x[k]);
	}
	wt(t);
}