program inundatii;
var x,y,z:array[1..50000] of longint;
n,i,j:integer;
rez,sum,min,aux,k,prec:int64;
f,g:text;
begin
  assign(f,'inundatii.in'); assign(g,'inundatii.out');
  reset(f); rewrite(g);
  read(f,n);
  for i:=1 to n do read(f,x[i],y[i],z[i]);
  sum:=0;
  min:=32000000000;
  prec:=32000000000;
  for i:=x[n]-1 to x[1] do
  begin
    aux:=0;
    k:=i-1;
    for j:=1 to n do
    begin
    k:=k+1;
    aux:=aux+abs(x[j]-k);
    end;
    if aux<min then min:=aux;
    if min>prec then break;
    prec:=min;
  end;
  rez:=rez+min;
  sum:=0;
  min:=32000000000;
  prec:=32000000000;
  for i:=y[n]-1 to y[1] do
  begin
    aux:=0;
    k:=i-1;
    for j:=1 to n do
    begin
    k:=k+1;
    aux:=aux+abs(y[j]-k);
    end;
    if aux<min then min:=aux;
    if prec<min then break;
    prec:=min;
  end;
  rez:=rez+min;
    sum:=0;
  min:=32000000000;
  prec:=32000000000;
  for i:=z[n]-1 to z[1] do
  begin
    aux:=0;
    k:=i-1;
    for j:=1 to n do
    begin
    k:=k+1;
    aux:=aux+abs(z[j]-k);
    end;
    if aux<min then min:=aux;
    if prec<min then break;
    prec:=min;
  end;
  rez:=rez+min;
  writeln(g,rez);
  close(f); close(g);
end.