RosettaCodeData/Task/Loops-Do-while/Modula-3/loops-do-while.mod3

5 lines
62 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
REPEAT
i := i + 1;
IO.Put(Fmt.Int(i));
UNTIL i MOD 6 = 0;