Перестановка элементов

Что напечатает программа?

var a: array[0..9] of integer;
    i, j, s, t, c, m: integer;
begin
  for i := 0 to 9 do
    a[i] := (i * 7 + 2) mod 13;
  for i := 1 to 9 do
    a[i] := a[i] + a[i - 1];
  writeln(a[5])
end.