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