18 lines
194 B
Text
18 lines
194 B
Text
MODULE LoopDoWhile;
|
|
IMPORT
|
|
Out;
|
|
|
|
PROCEDURE Do();
|
|
VAR
|
|
i: INTEGER;
|
|
BEGIN
|
|
i := 0;
|
|
REPEAT
|
|
Out.LongInt(i,0);Out.Ln;
|
|
INC(i)
|
|
UNTIL (i MOD 6 = 0);
|
|
END Do;
|
|
|
|
BEGIN
|
|
Do
|
|
END LoopDoWhile.
|