Заполнение массива

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

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