кроку, далі черговий крок і новий прохід програми з мітки b3}
k:=k+1;st[k]:=z; if z=t then goto b4 else goto b3;{далі вивід}
writeln('послідовність вершин найкоротшого шляху:');
i:=1;
b4: writeln('послідовність вершин найкоротшого шляху:');
for i:=1 to 10 do write(' ',st[i]); writeln(' ');
writeln(' робота програми завершена');
b5: writeln(' ');
b6: