Pierwsze trzy liczby określają kolejno rozmiary macierzy m, n i p.
Dalsze m×n liczb określa zawartość macierzy A. Dane są wprowadzane kolejno wierszami.
Kolejne n×p liczb określa zawartość macierzy B. Dane są wprowadzane kolejno wierszami.

Odczytane dane są umieszczane w macierzach, których iloczyn program oblicza i wyprowadza na standardowe wyjście.

// Mnożenie macierzy
// Data: 26.01.2010
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

program mmultiply;

type
  NInt = array of integer; // typ tablic wierszy
  MInt = array of NInt;    // typ tablicy wskaźników

var
  A,B,C : MInt;
  m,n,p,i,j,k,s : integer;

begin

  // odczytujemy wymiary macierzy

  read(m,n,p);

  // tworzymy macierze o odpowiednich rozmiarach

  SetLength(A,m);
  SetLength(B,n);
  SetLength(C,m);

  for i := 0 to m-1 do
  begin
    SetLength(A[i],n);
    SetLength(C[i],p);
  end;

  for i := 0 to n-1 do SetLength(B[i],p);

  // odczytujemy dane dla macierzy A

  for i := 0 to m-1 do
    for j := 0 to n-1 do read(A[i][j]);

  // odczytujemy dane dla macierzy B

  for i := 0 to n-1 do
    for j := 0 to p-1 do read(B[i][j]);

  writeln;

  // mnożymy macierz A przez B i wynik umieszczamy w C

  for i := 0 to m-1 do
    for j := 0 to p-1 do
    begin
      s := 0;
      for k := 0 to n-1 do s := s+A[i][k]*B[k][j];
      C[i][j] := s;
    end;

  // wyprowadzamy wynik mnożenia w C

  writeln('C = A x B:');

  for i := 0 to m-1 do
  begin
    for j := 0 to p-1 do write(C[i][j]:6);
    writeln;
  end;

  // zwalniamy pamięć zajętą przez macierze

  for i := 0 to m-1 do
  begin
    SetLength(A[i],0);
    SetLength(C[i],0);
  end;

  for i := 0 to n-1 do SetLength(B[i],0);
  SetLength(A,0);
  SetLength(B,0);
  SetLength(C,0);

end.

// Mnożenie macierzy
// Data: 26.01.2010
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

#include <iostream>
#include <iomanip>

using namespace std;

int main()
{
  int **A,**B,**C,m,n,p,i,j,k,s;

  // odczytujemy wymiary macierzy

  cin >> m >> n >> p;

  // tworzymy macierze o odpowiednich rozmiarach

  A = new int * [m];
  B = new int * [n];
  C = new int * [m];

  for(i = 0; i < m; i++)
  {
    A[i] = new int[n];
    C[i] = new int[p];
  }

  for(i = 0; i < n; i++)
    B[i] = new int[p];

  // odczytujemy dane dla macierzy A

  for(i = 0; i < m; i++)
    for(j = 0; j < n; j ++)
      cin >> A[i][j];

  // odczytujemy dane dla macierzy B

  for(i = 0; i < n; i++)
    for(j = 0; j < p; j++)
      cin >> B[i][j];

  cout << endl;

  // mnożymy macierz A przez B
  // i wynik umieszczamy w C

  for(i = 0; i < m; i++)
    for(j = 0; j < p; j++)
    {
      s = 0;
      for(k = 0; k < n; k++)
        s += A[i][k]*B[k][j];
      C[i][j] = s;
    }

  // wyprowadzamy wynik mnożenia w C

  cout <<  "C = A x B:\n";

  for(i = 0; i < m; i++)
  {
    for(j = 0; j < p; j++)
      cout << setw(6) << C[i][j];
    cout << endl;
  }

  // zwalniamy pamięć zajętą przez macierze

  for(i = 0; i < m; i++)
  {
    delete [] A[i];
    delete [] C[i];
  }

  for(i = 0; i < n; i++)
    delete [] B[i];
  delete [] A;
  delete [] B;
  delete [] C;

  return 0;
}

' Mnożenie macierzy
' Data: 26.01.2010
' (C)2020 mgr Jerzy Wałaszek
'-----------------------------

Dim As Integer m,n,p,i,j,k,s

' odczytujemy wymiary macierzy

Open Cons For Input As #1

Input #1,m,n,p

' tworzymy macierze o odpowiednich rozmiarach

Dim As Integer A(1 To m,1 To n),_
               B(1 To n,1 To p),_
               C(1 To m,1 To p)

' odczytujemy dane dla macierzy A

For i = 1 To m
  For j = 1 To n
    Input #1,A(i,j)
  Next
Next

' odczytujemy dane dla macierzy B

For i = 1 To n
  For j = 1 To p
    Input #1,B(i,j)
  Next
Next

Close #1

' mnożymy macierz A przez B i wynik umieszczamy w C

For i = 1 To m
  For j = 1 To p
    s = 0
    For k = 1 To n
      s += A(i,k)*B(k,j)
    Next
    C(i,j) = s
  Next
Next

' wyprowadzamy wynik mnożenia w C

Print "C = A x B:"

For i = 1 To m
  For j = 1 To p
    Print Using "######";C(i,j);
  Next
  Print
Next

End

# Mnożenie macierzy
# Data: 26.01.2010
# (C)2020 mgr Jerzy Wałaszek
#-----------------------------

# wyświetla macierz
#------------------
def mprint(t,x):
    print(t)
    for i in x:
        for j in i:
            print("%6d" % j,end="")
        print()
    print()
    
# odczytujemy wymiary macierzy

a = input().split()
m = int(a[0])
n = int(a[1])
p = int(a[2])

# tworzymy macierze o odpowiednich rozmiarach

A = []
B = []
C = []

for i in range(m):
    a = []
    for j in range(p):
        a.append(0)
    C.append(a)

# odczytujemy dane dla macierzy A

for i in range(m):
    a = input().split()
    for j in range(len(a)):
        a[j] = int(a[j])
    A.append(a)

# odczytujemy dane dla macierzy B

for i in range(n):
    a = input().split()
    for j in range(len(a)):
        a[j] = int(a[j])
    B.append(a)

print()

# mnożymy macierz A przez B
# i wynik umieszczamy w C

for i in range(m):
    for j in range(p):
        s = 0
        for k in range(n):
            s += A[i][k]*B[k][j]
        C[i][j] = s

# wyprowadzamy wynik mnożenia w C

mprint("C = A x B:",C)

# zwalniamy pamięć zajętą przez macierze

del A,B,C,a