var i,j,n: integer;
    s,s1,mx: real;
    a: array[,] of real;
begin
  write('n = ');  readln(n);
  setlength(a,n+1,n+1);
  randomize;
{ генерация массива и вывод на экран}  
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(50);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('суммы по диагоналям');
{ подсчет максимальной суммы по диагоналям 
  s - верхняя,  s1 - нижняя  }  
  mx:=a[1,1];
  for i:=1 to n-1 do
  begin
    s:=0;  s1:=0;
    for j:=1 to n-i do
    begin
      s:=s+a[j,j+i];
      s1:=s1+a[i+j,j];
    end;
    writeln('i = ',i,'  s = ',s,'  s1 = ',s1);
    if mx<max(s,s1) then mx:=max(s,s1);
  end;
  writeln;
  writeln('максимальная сумма:  ',mx);
end.