13 lines
125 B
Text
13 lines
125 B
Text
|
COMMENT Loops/Do-while;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
INTEGER i;
|
||
|
|
i := 0;
|
||
|
|
REPEAT
|
||
|
|
i := i + 1;
|
||
|
|
write(1, i);
|
||
|
|
skip(1)
|
||
|
|
UNTIL i MOD 6 = 0
|
||
|
|
END
|
||
|
|
FINISH
|