Что будет выведено на экран после выполнения процедуры Massiv для заданного двумерного массива?
                       16 27 16 12 25
                        24 20 21 29 11
          Mart =    15 13 20 6 13
                        16 24 16 13 15
                         7 18 15 20 26
Const n = 5;
Var Matr : array [1..n, 1..n] of Integer;
Procedure Massiv;
var i, j : Byte;
S : Integer;
Begin
S := 0;
For i :=1 to n do S :=S+ Matr[i, n-i+1];
Writeln(S);
End;