const

 l=3;

 m=4;

 n=2;

var

 A:array[1..l,1..n] of integer:=((4,2),(1,2),(3,-6));

 B:array[1..n,1..m] of integer:=((1,2,3,4),(2,4,6,7));

 C:array[1..l,1..m] of integer;

 i,j,k:integer;

begin

 for i:=1 to l do

   for j:=1 to m do

   begin

     C[i,j]:=0;

     for k:=1 to n do

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

   end;

 for i:=1 to l do

 begin

   for j:=1 to m do

     Write(C[i,j]:4);

   Writeln

 end

end.

Во вложении дано сравнение результата с онлайн-калькулятором