7 lines
100 B
Text
7 lines
100 B
Text
PROC main()
|
|
DEF i = 0
|
|
REPEAT
|
|
i := i + 1
|
|
WriteF('\d\n', i)
|
|
UNTIL Mod(i, 6) = 0
|
|
ENDPROC
|