Что будет выведено на экран после исполненья процедуры Massiv для данного

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