18 lines
289 B
Plaintext
18 lines
289 B
Plaintext
BEGIN
|
|
/* Read a number */
|
|
|
|
i := READ;
|
|
|
|
/* Count from 0 to this number */
|
|
|
|
IF i > 0 THEN step := 1 ELSE step := -1 FI;
|
|
k := 0;
|
|
WHILE k != i DO
|
|
WRITE(k);
|
|
k := k + step
|
|
OD;
|
|
|
|
WRITE(i)
|
|
END
|
|
|