Программа для расчета элементов матрицы по заданной формуле

var
  a: array[1..10, 1..10] of real;
  i, j, n, t, fact: integer;
 
begin
  repeat
    write('Введите n: ');
    readln(n);
  until n in [1..10];
  writeln('Матрица:');
  for i := 1 to n do
  begin
    t := i;
    fact := 1;
    if t >= 2 then
      for t := 2 to i do
        fact := fact * t;
    for j := 1 to n do
    begin
      a[i, j] := ln(fact) + j / 2 / i;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  readln;
end.

var
  a: array[1..10, 1..10] of real;
  x: array[1..10] of real;
  i, j, n, t, fact: integer;
 
begin
  repeat
    write('Ââåäèòå n: ');
    readln(n);
  until n in [1..10];
  writeln('Ìàòðèöà A:');
  for i := 1 to n do
  begin
    t := i;
    fact := 1;
    if t >= 2 then
      for t := 2 to i do
        fact := fact * t;
    for j := 1 to n do
    begin
      a[i, j] := ln(fact) + j / 2 / i;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  
  writeln('Âåêòîð X');
  for i:=1 to n do
  begin
    x[i]:=0;
    for j:=1 to n do
      x[i]:=x[i]+a[i,j]*a[i,n-i+1];
    write(x[i]:8:2);
  end;
  readln;
end.