let () = Scanf.scanf "%d\n" @@ fun n ->
  let xs = Array.make n 0 in
  let ys = Array.make n 0 in
  for i = 0 to n - 1 do
    Scanf.scanf "%d %d\n" @@ fun x y ->
      xs.(i) <- x + y;
      ys.(i) <- x - y;
  done;
  Array.sort compare xs;
  Array.sort compare ys;
  Printf.printf "%d\n" @@ max (xs.(n - 1) - xs.(0)) (ys.(n - 1) - ys.(0))