ma tran luy thua

var a,b,c:array[1 100,1 100] of integer; k,m,n,i,j:integer; begin write('nhap m:');readln(m); write('nhap n:');readln(n); writeln('nhap vao ma tran co so: '); for i:=1 to m do begin for j:=1 to n do begin write('nhap vao pt a[',i,j,']: ');readln(a[i,j]); end; end; writeln('nhap vao ma tran so mu:'); for i:=1 to m do for j:=1 to n do begin write('nhap vao pt b[',i,j,']: ');readln(b[i,j]); end; begin writeln('ma tran co so: '); for i:=1 to m do begin for j:=1 to n do if j<=m then write(a[i,j]:6); writeln; end; writeln('ma tran so mu: '); for i:=1 to m do begin for j:=1 to n do if j<=m then write(b[i,j]:6); writeln; end; writeln('ma tran luy thua: '); for i:=1 to m do for j:=1 to n do begin c[i,j]:=1; for k:=1 to b[i,j] do begin c[i,j]:=c[i,j]*a[i,j]; end; if j=1 then writeln; if j<=m then write(c[i,j]:6); end; until (i=m) and (j=n);} readln; end. . n:');readln(n); writeln('nhap vao ma tran co so: '); for i:=1 to m do begin for j:=1 to n do begin write('nhap vao pt a[',i,j,']: ');readln(a[i,j]); end; end; writeln('nhap vao ma tran so. ');readln(b[i,j]); end; begin writeln(&apos ;ma tran co so: '); for i:=1 to m do begin for j:=1 to n do if j<=m then write(a[i,j]:6); writeln; end; writeln(&apos ;ma tran so mu: '); for i:=1 to. m do begin for j:=1 to n do if j<=m then write(b[i,j]:6); writeln; end; writeln(&apos ;ma tran luy thua: '); for i:=1 to m do for j:=1 to n do begin c[i,j]:=1; for k:=1 to b[i,j] do begin c[i,j]:=c[i,j]*a[i,j]; end; if