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