Вложенные циклы в матричных задачах - Pascal

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

Пожалуйста, помогите пожалуйста. Heeelp Дано натуральное число n. Получить действительную матрицу [aij] i, j = 1, ..., n, для которой

Решение задачи: «Вложенные циклы в матричных задачах»

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

uses crt;
var a:array [1..20, 1..20] of real;
    i,j,n:integer;
begin
  ClrScr;
  write ('n= '); readln (n);
  for i:=1 to n do
    begin
      writeln;
      for j:=1 to n do
        begin
          A[i,j]:=1/(i+j);
          write (a[i,j]:5:2);
        end;
    end;
  readln;
end.

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

Объявлены переменные: a (массив), i, j, n (целые числа).
Задается значение переменной n с помощью функции readln.
Два вложенных цикла: внешний цикл для перебора строк массива a, внутренний цикл для перебора столбцов массива a.
В каждой ячейке массива a вычисляется значение по формуле 1/(i+j) и сохраняется в переменной A[i,j].
С помощью функции write выводится значение каждой ячейки массива a с шагом 5 знаков после запятой.
В конце программы происходит чтение из стандартного ввода с помощью функции readln.