RosettaCodeData/Task/Loops-Do-while/Objeck/loops-do-while.objeck

7 lines
65 B
Plaintext

i := 0;
do {
i += 1;
i->PrintLine();
}
while (i % 6 <> 0);