Перемножить матрицы - Pascal ABC (134046)

Формулировка задачи:

Перемножить матрицы A(4,3) и В(3,5). Элементы результирующей матрицы вычислить с помощью выражения.

Решение задачи: «Перемножить матрицы»

Листинг программы

const
  n=4;
  m=3;
  k=5;
var
  a: array[1..n,1..m] of integer;
  b: array[1..m,1..k] of integer;
  c: array[1..n,1..k] of integer;
  i,j,p: integer;
begin
  writeln('ГЊГ*ГІГ°ГЁГ¶Г* ГЂ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  writeln('ГЊГ*ГІГ°ГЁГ¶Г* B:');
  for i:=1 to m do
  begin
    for j:=1 to k do
    begin
      b[i,j]:=random(9)+1;
      write(b[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  writeln('ГЏГ®Г«ГіГ·ГҐГ*Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г* Г‘:');
  for i:=1 to n do
  begin
    for j:=1 to k do
    begin
      c[i,j]:=0;
      for p:=1 to m do
        c[i,j]:=c[i,j]+a[i,p]*b[p,j];
      write(c[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

Объяснение кода листинга программы

Объявлены четыре массива: a, b, c, и массивы a и b инициализируются случайными числами от 1 до 9 с помощью функции random(9)+1.
Выводятся значения массива a.
Выводятся значения массива b.
Вычисляются значения массива c путем перемножения соответствующих элементов массива a и b.
Выводятся значения массива c.
Программа ожидает ввода данных с помощью функции readln.