Const N = 10;
Var
  A:Array [1..10, 1..10] Of Integer;
  i, j, sum, temp:Integer; 
  
Begin
  randomize;
  For i := 1 to N do
  Begin
    writeln();
    For j := 1 to N do
    Begin
      A[i, j] := random(100);
      write(A[i, j], '; ');
    End;
  End;
  writeln();
  sum := 0;
  writeln('Элементы побочной диагонали: ');
  For i := 1 to N do
  Begin
    For j := 1 to N do
    Begin
      if i = j then
      Begin
        sum := sum + A[i, i];
      End;
      if j = N - i + 1 then
      Begin 
        write(A[i, j], '; ');
      End;
    End;
  End;
  writeln();
  writeln('Сумма элементов главной диагонали: ', sum);
End.