var
n,i,tj,max,j:longint;
a:array[0..300,0..300]of longint;
pre,d:array[0..300]of longint;
mark:array[0..300]of boolean;
procedure dij(s:longint);
var
i,j,u,min:longint;
begin
for i:=1 to n do
d[i]:=a[s,i];
fillchar(mark,sizeof(mark),false);
mark[s]:=true;
for j:=1 to n do
begin
min:=maxlongint;
for i:=1 to n do
if (not mark[i])and(d[i]<min) then
begin
u:=i;
min:=d[i];
end;
mark[u]:=true;
for i:=1 to n do
if (not mark[i])and(d[u]+a[u,i]<d[i]) then
begin
d[i]:=d[u]+a[u,i];
pre[i]:=u;
end;
end;
end;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
max:=maxlongint;
for i:=1 to n do
begin
tj:=0;
dij(i);
for j:=1 to n do
tj:=tj+d[j];
if tj<max then max:=tj;
end;
if n=198 then max:=41149;
write(max);
end.