... LongBegin For i:=1 to n do For j:=1 to n do Begin MtKq[i,j]:=0; For k:=1 to n do MtKq[i,j]:=MtKq[i,j]+Mt1[i,k]*Mt2[k,j]; End;End;Procedure LthuaMt(m: Integer); {aa = a ^m (m: do dai duong di, ... ',i,' toi dinh ',j,' voi do dai ',l); End;BEGIN Writeln('Nhap ma tran ke cho do thi:'); Write('So dinh do thi: '); Readln(n); InputMt(a); Write('Dinh ... to m-1 do Begin TichMt(b,a,aa); Gan(aa,b); End;End;Procedure FindWay(i,j: Integer); { Tim so duong di tu dinh i >j }Begin If aa[i,j]<>0 then Writeln('So duong di do dai...