> program agrinet;
> type node=record
>           data:longint;
>           f:longint;
>           r:longint;
>           end;
> 
> var c:array [1..100,1..100] of longint;
>     a:array [1..100] of node;
>     b:node;
>     i,j,n,q,p,min,f,r,total:longint;
> 
> begin
>      {assign(input,'agrinet.in');
>      reset(input);
>      assign(output,'agrinet.out');
>      rewrite(output);}
>    while (not eof) do
> begin
>     readln(n);
>     for i:=1 to n do
>         begin
>              for j:=1 to n do
>                        read(c[i,j]);
>              readln;
>         end;
> 
>     for i:=1 to n-1 do
>         begin
>              a[i].f:=1;
>              a[i].r:=i+1;
>              a[i].data:=c[1,i+1];
>         end;
> 
> 
>    for i:=1 to n-2 do
>        begin
>             min:=maxlongint;
>             for j:=i to n-1 do
>                  if a[j].data<min then
>                                     begin
>                                          min:=a[j].data;
>                                          p:=j;
>                                          f:=a[j].r;
>                                     end;
>                    b:=a[p];a[p]:=a[i];a[i]:=b;
>                    for q:=i+1 to n-1 do
>                            if c[a[i].r,a[q].r]<a[q].data then
>                                                           begin
>                                                                a[q].f:=a[i].r;
>                                                                a[q].data:=c[a[i].r,a[q].r];
>                                                           end;
>        end;
>        for i:=1 to n-1 do
>            inc(total,a[i].data);
>            writeln(total);
>  end;
>    end.
> 
> 
>