дана квадратная матрица А порядка n. Получить матрицу D=A*C. Элементы матрицы С вычисляются по формуле... Сij=1/(i+j+2)

program Project1;
 
uses crt;
 
const
  n = 5;
 
type
  matrix = array [1..n, 1..n] of real;
 
var
  a,c,d: matrix;
  i,j,k: integer;
 
begin
//------заполнение и вывод матрицы А-----------
  randomize;
  textcolor(yellow);
  writeln('Матрица "А"');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(50)+10;
          write(a[i,j]:1:2,'     ');
        end;
      writeln;
    end;
  writeln;
//------вычисление элементов матрицы С--------
  textcolor(lightgreen);
  writeln('Матрица "С"');
  for i:=1 to n do
    begin
      for j:=1 to n do
        if not odd(i) then
          begin                 {если четное, то c[i,j] = 1/(i+j+2)}
            c[i,j]:=1/(i+j+2);
            write(c[i,j]:1:2,'     ');
          end
        else
          begin
            c[i,j]:=1/(i+j);  {иначе c[i,j] = 1/(i+j)}
            write(c[i,j]:1:2,'     ');
          end;
      writeln;
    end;
  writeln;
//------вычисление элементов матрицы D---------
  textcolor(lightred);
  writeln('Матрица "D"');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          d[i,j]:=a[i,j] * c[i,j];
          write(d[i,j]:1:2,'     ');
        end;
      writeln;
    end;
  readln;
end.