RosettaCodeData/Task/Loops-Do-while/BASIC/loops-do-while-3.basic

6 lines
53 B
Plaintext

a = 0
REPEAT
a = a + 1
PRINT a
UNTIL a MOD 6 = 0