15 lines
170 B
Text
15 lines
170 B
Text
|
MODULE DoWhile;
|
||
|
|
IMPORT InOut;
|
||
|
|
|
||
|
|
VAR
|
||
|
|
i: INTEGER;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
i := 0
|
||
|
|
REPEAT
|
||
|
|
InOut.WriteInt(i, 1);
|
||
|
|
InOut.WriteLn;
|
||
|
|
INC(i)
|
||
|
|
UNTIL i MOD 6 = 0;
|
||
|
|
END DoWhile.
|