Помогите пожалуйста написать программу(Паскаль)

С тремя целочисленными динамическими массивами рандомных значений (у меня они задаются из диапазона [-100;100]):

 { Free Pascal: }

{ Free Pascal: } 

type matrix = array of array of longint; 

var i, j, k, l, m, n: integer; 

A, B, C: matrix; 

begin write('k m l: '); 

readln(k, m, l); 

setlength(A, k, m); 

setlength(B, m, l); 

setlength(C, k, l); 

randomize(); 

writeln('Матрица А:'); 

for i := 0 to k-1 do begin 

for j := 0 to m-1 do begin 

A[i,j] := random(201)-100; 

write(A[i,j]: 4) end; 

writeln() end; 

writeln('Матрица B:'); 

for i := 0 to m-1 do begin 

for j := 0 to l-1 do begin 

B[i,j] := random(201)-100; 

write(B[i,j]: 4) end; 

writeln() end; 

writeln('Матрица C=AB:'); 

for i := 0 to k-1 do begin 

for j := 0 to l-1 do begin 

C[i,j] := 0; 

for n := 0 to m-1 do 

C[i,j] := C[i,j] + A[i,n] * B[n,j]; 

write(C[i,j]: 7) end; 

writeln() end 

end. 

 

Только размеры матриц лучше задавать поменьше, не то в экран не влезут. А в общем здесь простая матричная алгебра...
❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄

а если матрица А размером 3*3, а матрица В 2*16, то как должно происходить произведение и куда должен складываться результат