program inundatii;
type tomb = array[1..50000] of longint;
var f:text;
    s:extended;
    n,i:longint;
    x,y,z:tomb;
procedure megold(var v:tomb;var e:extended);
var p,i:longint;
begin
     p:=(1+n) div 2;
     for i:=1 to n do
         e:=e+abs(p-i)+abs(v[p]-v[i]);
end;

begin
     assign(f,'inundatii.in');
     reset(f);
     readln(f,n);
     for i:=1 to n do
         readln(f,x[i],y[i],z[i]);
     close(f);

     s:=0;
     megold(x,s);
     megold(y,s);
     megold(z,s);

     assign(f,'inundatii.out');
     rewrite(f);
     writeln(f,s:0:0);
     close(f);
end.