... ',st[i]); end; close(g); end; BEGIN clrscr; input; init; dijkstra; output; readln; END File vào ví dụ: (DIJKSTRA. INP) 1 2 4 4 7 11 File tương ứng: (DIJKSTRA. OUT) YES 13 -> -> ... n,m,s,z:integer; u,v,i:integer; f,g:text; Procedure input; begin writeln('doc du lieu tu file Dijkstra. inp'); assign(f, 'Dijkstra. inp');reset(f); readln(f,n,m,s,z); for u:=1 to n for v:=1 to n if u=v then ... (min=oo); End; Procedure Output; Var st,tam:string; Begin writeln('ghi ket qua file dijkstra. out'); assign(g, 'dijkstra. out');rewrite(g); if d[z]=oo then writeln('NO') else begin writeln(g,'YES');...