9 lines
153 B
Text
9 lines
153 B
Text
string s; s := "";
|
|
for i = 1 step 1 until 10:
|
|
if i mod 5 = 0:
|
|
s := s & decimal i & char10;
|
|
else:
|
|
s := s & decimal i & ", "
|
|
fi; endfor
|
|
message s;
|
|
end
|