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