Program orase;
 type tip=record
      x,y:longint;
      end;
var minx,maxx,maxy1,maxy:tip;
    a:array [1..100000] of tip;
    b1:array [1..1 shl 15] of char;
    x,y,n,i:longint;
    fi,fo:text;
begin
 assign(fi,'orase.in');
  assign(fo,'orase.out');
 settextbuf(fi,b1);
 reset(fi);
  rewrite(fo);
 readln(fi,n);
 minx.x:=1000000;
 for i:=1 to n do begin
             readln(fi,x,y);
              if x<minx.x then begin minx.x:=x; minx.y:=y; end;
              if x>maxx.x then begin maxx.x:=x; maxx.y:=y; end;
              if y>maxy.y then begin maxy.y:=y; maxy.x:=x; end;
              a[i].y:=y; a[i].x:=x;
                  end;
 for i:=1 to n do
  if (a[i].y<>maxy.y) and (a[i].y>maxy1.y) then maxy1:=a[i];
 if minx.y+maxx.y+abs(minx.x-maxx.x)>maxy1.y+maxy.y+abs(maxy1.x-maxy.x)
  then write(fo,minx.y+maxx.y+abs(minx.x-maxx.x))
  else write(fo,maxy1.y+maxy.y+abs(maxy1.x-maxy.x));
close(fo);
end.