4 lines
142 B
Text
4 lines
142 B
Text
code CrLf=9, IntOut=11, Text=12;
|
|
integer N;
|
|
for N:= 1 to 10 do
|
|
[IntOut(0, N); if remainder(N/5) \#0\ then Text(0, ", ") else CrLf(0)]
|