Дано натуральное число n. получить действительную матрицу |A[i,j] i,j=1,…n для которой Ai,j=1/i+j — Pascal(Паскаль)

program matrix;
var i, j, n: integer;
    A: array[1..10, 1..10] of real;
 
begin
  write('Введите натуральное число  n: '); Readln(n);
  for i := 1 to n do
    for j := 1 to n do
      begin
        A[i, j] := 1 / (i + j);
      end;
 
  Writeln('Полученная матрица');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          Write(A[i,j]:7:3);
        end;
      writeln;
    end;
 Writeln('Для завершения нажмите клавишу'); Readln;
 
end.