19 lines
194 B
Text
19 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.
|