Перемножение двух трёхмерных матриц - Pascal

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

Заданы трёхмерные матрицы одинаковых размеров 7x7x7, заполненные случайными числами из диапазона {1,100}. Перемножить их элементы, имеющие одинаковые индексы, и вывести результат на экран.

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

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

for i:=1 to n do for j:=1 to n do for k:=1 to n do c[i,j,k]:=a[i,j,k]*b[i,j,k];

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

Создается цикл от 1 до n для переменной i для перебора строк матрицы.
Внутри первого цикла создается цикл от 1 до n для переменной j для перебора столбцов матрицы.
Внутри второго цикла создается еще один цикл от 1 до n для переменной k для перебора элементов внутри строки и столбца матрицы.
Значение элемента c[i,j,k] устанавливается равным произведению элементов с соответствующими индексами из матриц a и b: c[i,j,k] := a[i,j,k] * b[i,j,k].