poj1723soldiers{中位数，曼哈顿距…

{通过样例，WA，不知道错在哪里，请指教}

type arr=array[1..10000] of longint;

var

  n,i,x0,y0:longint;

  ans:int64;

  x,y:array[1..10000] of longint;

procedure swap(var a,b:longint);

var t:longint;

begin

  t:=a;a:=b;b:=t;

end;

procedure qsort(l,r:longint;var a,b:arr);

var

  i,j,m:longint;

begin

  i:=l;

  j:=r;

  m:=a[(l+r) shr 1];

  repeat

    while a[i]

    while a[j]>m do dec(j);

    if i<=j then

      begin

        swap(a[i],a[j]);

        swap(b[i],b[j]);

        inc(i);

        dec(j);

      end;

  until i>j;

  if j>l then qsort(l,j,a,b);

  if i

end;

begin

  read(n);

  if n=1 then

    begin

      writeln(0);

      halt;

    end;

  for i:=1 to n do

    read(x[i],y[i]);

  qsort(1,n,y,x);

  y0:=y[n div 2];

  qsort(1,n,x,y);

  for i:=1 to n do

    x[i]:=x[i]-(i-1);

  qsort(1,n,x,y);

  x0:=x[n div 2];

  ans:=0;

  for i:=1 to n do

    begin

      inc(ans,abs(x[i]-x0));

      inc(ans,abs(y[i]-y0));

    end;

  writeln(ans);

end.