... {========================================================== ==========} PROCEDURE KRUSKAL; VAR I,R1,R2,COUNT,A:INTEGER;TMP:CANH; BEGIN COUNT:=0; CONNECTED:=FALSE; FOR I:=M DIV DOWNTO DO AH(I,M); FOR I:=M-1 DOWNTO DO BEGIN TMP:=E[1];E[1]:=E[I+1];E[I+1]:=TMP;AH(1,I); ... BEGIN ASSIGN(F1,'D:\Pascal\File\khung.txt');RESET(F1); ASSIGN(F2,'D:\Pascal\Kruskalout.txt');REWRITE(F2); NHAP;TAORONG ;KRUSKAL; XUAT;CLOSE(F1);CLOSE(F2); END ... DO BEGIN IF MARK THEN BEGIN WRITELN(F2,'(',U,',',V,')=',C); INC(COUNT); W:=W+C; END; IF COUNT=N-1 THEN BREAK; END; WRITELN(F2,'TONG =',W); END; END; {==========================================================...