a := 0;
forever: show a; a := a + 1; exitif a mod 6 = 0; endfor
end