... queue,chuaxet,truoc:array[1..20] of byte; i,j,n,solt,k,s,t:integer; ch:char;{********************************************************}procedure nhapsolieu;begin write('Cho so dinh cua do thi: ');readln(n); ... j,k:byte; Begin k:=1; while ct[k]<>i do inc(k); for j:=ct[-1] downto k+1 do ct[ctc[-1]+j]:=ct[j]; for j:=1 to ctc[-1] do ct[j+k]:=ctc[j]; ct[-1]:=ct[-1]+ctc[-1]; ... Nhóm thực hiện: Lớp 46B2_CNTT writeln('Nhap so lieu ma tran ke:'); for i:=1 to n do for j:=1 to n do read(f,a[i,j]); close(f);end;{*******************************************************}procedure...