Обработка массива

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

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