Что будет выведено на экран после выполнения процедуры 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;