Получить квадратную матрицу порядка n - Pascal ABC (13436)

Решение задачи: «Получить квадратную матрицу порядка n»

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

const n=4;
var a:array[1..n,1..n] of real;
    i,j,k:byte;
    f,s:real;
begin
for i:=1 to n do
 begin
  f:=1;
  for j:=1 to n do
   begin
    f:=f*j;
    s:=1;
    for k:=1 to i do
    s:=s*f;
    a[i,j]:=1/s;
    write(a[i,j]:10:5);
   end;
  writeln;
 end;
end.

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

Переменная n инициализируется значением 4.
Создается переменная a типа array[1..n,1..n] of real. Эта переменная представляет собой матрицу порядка n.
Создаются три переменные i, j и k типа byte. Они будут использоваться для индексации матрицы.
Создается переменная f типа real. Она будет использоваться для хранения результата умножения.
Создается переменная s типа real. Она будет использоваться для хранения результата умножения и последующего деления.
В цикле for i:=1 до n do
1. В цикле for j:=1 до n do
2. Вычисляется результат умножения f*j и сохраняется в переменной f.
3. Инициализируется переменная s значением 1.
4. В цикле for k:=1 до i do
5. Вычисляется результат умножения f*s и сохраняется в переменной s.
6. Вычисляется значение a[i,j] как 1/s.
7. Выводится значение a[i,j] с помощью функции write.
8. Выводится символ новой строки с помощью функции write.
9. Цикл for i:=1 до n do
10. Завершается.
11. Программа завершается.