10 lines
153 B
Text
10 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
|