program inundatii;
type cub = record
         x,y,z : longint;
         end;
var A : array [1..50000] of cub;
    m,n,i : integer;
    x1,y1,z1,S : longint;
    f : text;
begin
assign(f,'inundatii.in');
reset(f);
readln(f,n);

x1 := 0;
y1 := 0;
z1 := 0;

for i := 1 to n do
with A[i] do begin
readln(f,x,y,z);
x1 := x1+x;
y1 := y1+y;
z1 := z1+z;
end;
close(f);

x1 := x1 div n;
y1 := y1 div n;
z1 := z1 div n;

S := 0;
m := 0;

for i := 1 to n do
with A[i] do begin
S := abs(x1+m-x)+abs(y1+m-y)+abs(z1+m-z)+S;
m := m+1;
end;


assign(f,'inundatii.out');
rewrite(f);

write(f,S);

close(f);

end.