Вывод натурального ряда

Pas.0024. Напишите рекурсивную процедуру, которая выводит натуральные числа от 1 до n.

Решение.

program LiteRecursions;

procedure RecursionDown(n : integer);
begin
    write(n);
    if n > 1 then
       RecursionDown(n-1);
end;

procedure RecursionTo(n : integer);
begin
    if n > 1 then
       RecursionTo(n-1);
    write(n);
end;

begin
    RecursionDown(9);
    writeln;
    RecursionTo(9);
end.

Консоль.

987654321
123456789