program inundatii_36qw4jn;
type vect=array [1..4000] of word;
var f,g:text;
    x,s:vect;
    m:array [1..4000,1..3] of word;
    n,i,nr,j,nr1:word;

procedure calc(x:vect);
var i:word; suma:longint; media:word;
begin
suma:=0;
for i:=1 to n do
suma:=suma+x[i];
media:=suma div n;
suma:=0;
for i:=1 to n do
begin
if x[i]>media then s[i]:=x[i]-media
else s[i]:=media-x[i];
suma:=suma+s[i];
end;
s[1]:=0; s[2]:=1;
for i:=3 to n do
s[i]:=s[i-1]+i-2;
nr:=nr+s[n]+suma;
end;

begin
assign(f,'inundatii.in'); reset(f);
assign(g,'inundatii.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
begin
for j:=1 to 3 do
read(f,m[i,j]);
readln(f);
end;
nr:=0;
for j:=1 to 3 do
begin
for i:=1 to n do
x[i]:=m[i,j];
calc(x);
end;
write(g,nr);
close(f); close(g);
end.