14 lines
319 B
Text
14 lines
319 B
Text
codes CrLf=9, IntOut=11, Text=12;
|
|
int N;
|
|
[for N:= 1 to 10 do \best way to do this
|
|
[IntOut(0, N); if N#10 then Text(0, ", ")];
|
|
CrLf(0);
|
|
|
|
N:= 1; \way suggested by task statement
|
|
loop [IntOut(0, N);
|
|
if N=10 then quit;
|
|
Text(0, ", ");
|
|
N:= N+1;
|
|
];
|
|
CrLf(0);
|
|
]
|