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

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

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

var
  N :integer ;

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

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

консоль:

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