program TT_Dijkstra; uses crt; const max=50; var n,s,t: integer; chon:char; truoc:array[1 max] of byte; d :array[1 max] of integer; a :array[1 max,1 max] of integer; kt :array[1 max] of boolean; (******************Nhap So Lieu***********************) procedure NhapSoLieu; Var f:text; fname:string; i,j:integer; begin write('nhap ten tep:') ; readln(fname); assign(f,fname); reset(f); readln(f,n); for i:=1 to n for j:=1 to n read(f,a[i,j]); close(f); end; (******************In So Lieu**************************) procedure Inketqua; var i,j:integer; begin Write('DUONG DI NGAN NHAT TU',s,'DEN',t); write(t,' ... end; end; (********************************************************) BEGIN clrscr; Nhapsolieu; END dijkstra; Inketqua; readln;