//Метод ближайшего соседа

program Pl1;

var
A : Array[0..100,0..100] of integer;
B : Array[1..100] of integer;
C : Array[1..100] of integer;

i,j,t,n,v,k,s,u:integer;
min:integer;

//Íà÷àëî ïîäïðîãðàììû:

procedure PP(n: integer; t:integer; k:integer; var s:integer);
var i,v,f: integer;

begin
k:=1;
if k<=n then
f:=1;
min:=A[t,f];
if min=0 then
begin
f:=f+1;
min:=A[t,f];
end;
for j:=1 to n do
begin
if ((A[t,j]<min)and (A[t,j]<> 0)) then begin

min:=A[t,j];
f:=j;
end;
B[k]:=min;
C[k]:=f;
if k=0 then
begin
t:=f;
f:=0;
end;
k:=k+1
end;
end;
begin
S:=0;
for i:=1 to n do
begin
S:=S+B[i];
end;

//Îñíîâíàÿ ïðîãðàììà:

begin
write('Ââåäèòå êîëëè÷åñòâî ãîðîäîâ: ');
readln(n);
for i:=1 to n do
begin
for j:=i to n do
begin
if i=j then
A[i,j]:=0
else
if i<j then
begin
write('ВВедите расстояние от города, до города: ');
readln(A[i,j]);
A[i,j]:=A[j,i];
end;
end;
end;

begin
Write('Введите город: ');
Readln(t);
PP(n,t,k,S);
write(S);
for i:=1 to k do
begin
writeln(C[i]) ;
end;
end;
end;
end.