Задача 2 Урок 22

Задача 2 Урок 22 Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

var
  n :integer ;

function printRecursion(n :integer):integer;
begin
   if (n = 0) then
     result := 0
   else
     begin
       result := printRecursion(n-1); // рекурсивный вызов пока n не станет = 0
       writeln(n);             // после достижения начнёт выполняться это команда для всех уровней рекурсии
     end;
end;

begin
    writeln('Vvedite chislo');
    readln(n);
    writeln();
    printRecursion(n);
    readln();
end.          

Вывод консоли:

Vvedite chislo
5

1
2
3
4
5