13 lines
167 B
Plaintext
13 lines
167 B
Plaintext
let
|
|
const MAX ~ 10;
|
|
var n: Integer
|
|
in begin
|
|
getint(var n);
|
|
if (n>0) /\ (n<=MAX) then
|
|
while n > 0 do begin
|
|
putint(n); puteol();
|
|
n := n - 1;
|
|
end
|
|
else
|
|
end
|