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
arr = input().split()
m = int(arr[0])
n = int(arr[1])
p = int(arr[2])
# tworzymy macierze o odpowiednich rozmiarach
a = []
b = []
c = []
for i in range(m):
    arr = []
    for j in range(p):
        arr.append(0)
    c.append(arr)
# odczytujemy dane dla macierzy A
for i in range(m):
    s = input().split()
    arr = [0.0] * len(s)
    for j in range(len(s)):
        arr[j] = int(s[j])
    a.append(arr)
# odczytujemy dane dla macierzy B
for i in range(n):
    s = input().split()
    arr = [0.0] * len(s)
    for j in range(len(s)):
        arr[j] = int(s[j])
    b.append(arr)
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
a = None
b = None
c = None
arr = None