получение действительной матрицы

[veronika55214]

В PascalABC
№370
Дано натуральное число n, получить действительную матрицу

[ZX Spectrum-128]

For i:=1 to n do
 For j:=1 to n do
  A[i,j]:=1/(i+j);