RosettaCodeData/Task/Loops-Do-while/Modula-3/loops-do-while.mod3
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
62 B
Text

REPEAT
i := i + 1;
IO.Put(Fmt.Int(i));
UNTIL i MOD 6 = 0;