Uses CRT;
Const n = 5;
Var a: Array[1..n,1..n] of Byte;
     i, j: Byte;
     s: Integer;
Begin
ClrScr;
Randomize;
For i := 1 to n do
     Begin
     For j := 1 to n do
         Begin
         a[i,j] := Random(10)+1;
         Write(a[i,j]:4);
         End;
     Writeln;
     End;

For i := 1 to n do
     Begin
     For j := 1 to n do
         Begin
         If (j > i) and (j < n - i + 1) then Continue;
         s := s + a[i,j];
         End;
     End;
Writeln('Сумма: ',s);
ReadKey;
End.