Умножение матриц - Pascal ABC

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

Найти с=A*B A:=((2,5,3), (5,4,5), (9,8,7)); B:=((6,5,5), (9,3,2), (3,1,2));

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

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

uses crt;
const n=3;
      A:array[1..n,1..n]of integer=((2,5,3),(5,4,5),(9,8,7));
      B:array[1..n,1..n]of integer=((6,5,5),(9,3,2),(3,1,2));
var c:array[1..n,1..n]of integer;
    i,j,k:integer;
begin
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln
 end;
for i:=1 to n do
for j:=1 to n 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;
writeln('Матрица С=A*B:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln;
 end;
end.

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

Установка размера матрицы A и B с помощью константы n равной 3.
Объявление матрицы A и B как двумерные массивы целых чисел.
Объявление матрицы C как двумерный массив целых чисел.
Объявление трех переменных i, j, k как целочисленные.
Вывод матрицы A на экран.
Вывод матрицы B на экран.
Инициализация всех элементов матрицы C нулями.
Вычисление элементов матрицы C путем перебора всех элементов матрицы A и B.
Вывод матрицы C на экран.
Конец программы.