Задание 2 Урок 22

Задание 2 Урок 22

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

var
  N :integer ;

function printRecursion(n :integer):integer;
begin
   if (n = 0) then
   begin
     result := 0
   end
   else
   begin
     result := printRecursion(n-1);
     writeln(n);
   end;
end;

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

консоль:

Vvedite chislo
11
--------------
1
2
3
4
5
6
7
8
9
10
11