RosettaCodeData/Task/Loops-Do-while/XPL0/loops-do-while.xpl0
2023-07-01 13:44:08 -04:00

7 lines
112 B
Text

code CrLf=9, IntOut=11;
int V;
[V:= 0;
repeat V:= V+1;
IntOut(0, V); CrLf(0);
until rem(V/6) = 0;
]