type
  Stroke = array of real;
  Matrix = array of Stroke;

var
  a : Matrix;
  l: integer;
  s1, s2: real;

procedure InputMatrix(var m: Matrix; const l : integer);
var
  i, j: integer;
begin
  writeln('Ввод матрицы:');
  SetLength(m, l);
  for i := 0 to l - 1 do begin
    SetLength(m[i], l);
    for j := 0 to l - 1 do
      read(m[i,j]);
  end;
  writeln;
end;

procedure WriteMatrix(const m: Matrix; const l : integer);
var
  i, j, t: integer;
begin
  writeln('Вывод матрицы:');
  for i := 0 to l - 1 do begin
    for j := 0 to l - 1 do
      write(m[i,j], ' ');
    writeln;
  end;
  writeln;
end;

procedure SumOfArray(const s: Stroke; const l : integer; var result: real);
var
  i : integer;
  r : real;
begin
  for i := 0 to l - 1 do
    r := r + s[i];
  result := r
end;

procedure SumOfDiangols(const m: Matrix; const l : integer; var s1, s2: real);
var
  i: integer;
  t1,t2 : Stroke;
begin
  SetLength(t1, l);
  SetLength(t2, l);
  for i := 0 to l - 1 do begin
    t1[i] := m[i, i];
    t2[i] := m[i, l - i -  1];
  end;
  SumOfArray(t1, l, s1);
  SumOfArray(t2, l, s2);
end;

procedure CompareSumOfDiangols(const s1, s2 : real);
begin
  if s2 < s1
  then writeln('Побочная диагональ имеет минимальное значение: ', s2)
  else writeln('Главная диагональ имеет минимальное значение: ', s1);
end;

begin
  write('Размерность матрицы: ');
  readln(l);
  InputMatrix(a, l);
  SumOfDiangols(a, l, s1, s2);
  CompareSumOfDiangols(s1, s2);
end.