RosettaCodeData/Task/Loops-Do-while/Icon/loops-do-while.icon

9 lines
88 B
Plaintext

procedure main()
i := 0
repeat {
write(i +:= 1)
if i % 6 = 0 then break
}
end