Для заданной квадратной матрицы сформируйте одномерную таблицу из её диагональных элементов

var
  n : Integer = 15; //Размерность матрицы
  Matr : Array[1..n,1..n] of Integer;
  Diag : Array[1..n] of Integer;
  i : Integer;
Begin
//Здесь вставить ввод размерности матрицы
.........
//Здесь вставить ввод самой матрицы
.........
 
  //Формирование массива из диагональных элементов матрицы
  For i:=1 To n Do
  Diag[i]:=Matr[i,i];
 
//Здесь вставить вывод полученного массива
.........
 
End;

var
  n : Integer = 15; //Размерность матрицы
  Matr : Array of Array of Integer;
  Diag : Array of Integer;
  i : Integer;
Begin
//Здесь вставить ввод размерности матрицы
.........
//Здесь вставить ввод самой матрицы
.........
 
  SetLength(Diag,n*2);
  SetLength(Matr,n);
  For i:=0 To n-1 Do SetLength(Matr[i],n);
 
  //Формирование массива из диагональных элементов матрицы
  For i:=0 To n-1 Do
  Begin
    Diag[i]:=Matr[i,i];
    Diag[i+n]:=Matr[n-i-1,i];
  End;
 
//Здесь вставить вывод полученного массива
.........
 
End;