const n=5;  
var i,j,sg,minp,maxp: integer;
    a: array[1..n,1..n] of integer;
begin
{ заполнение массива и вывод на экран}
  for i:=1 to n do
    for j:=1 to n do 
    begin
      a[i,j]:=Random(58);
      write(a[i,j]:4,' ');
      if j=n then writeln;
    end;   
{ сумма элементов над главной диаг.
  максимальный и минимальный элементы }
  sg:=0;  minp:=100;  maxp:=0;
  for i:=1 to n do
    for j:=i to n do
    begin
      sg:=sg+a[i,j];      
      if (a[i,j]<minp) then minp:=a[i,j];
      if (a[i,j]>maxp) then maxp:=a[i,j];
    end;
  writeln('сумма элем. над глав. диагон. = ',sg);
  writeln('максим. элемент над глав. диаг. = ',maxp);
  writeln('миним. элем. над глав. диаг. = ',minp);
{ то же самое для элементов над
 побочной диагональю }
  sg:=0;  minp:=100;  maxp:=0;
  for i:=1 to n do
    for j:=1 to n-i+1 do
    begin
      sg:=sg+a[i,j];      
      if (a[i,j]<minp) then minp:=a[i,j];
      if (a[i,j]>maxp) then maxp:=a[i,j];
    end;
  writeln('сумма элем. над побочн. диагон. = ',sg);
  writeln('максим. элемент над побочн. диаг. = ',maxp);
  writeln('миним. элем. над побочн. диаг. = ',minp);
end.