RosettaCodeData/Task/Loops-Continue/Icon/loops-continue-1.icon

10 lines
130 B
Plaintext

procedure main()
every writes(x := 1 to 10) do {
if x % 5 = 0 then {
write()
next
}
writes(", ")
}
end