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

Задача 3 Урок 22 Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

var
  a, b :integer ;

function printRecursion(a, b :integer):integer;
begin
  if (b = a) then     // если b достигени a
    result := a    // выход из рекупсии
  else
    begin
      result := printRecursion(a, b-1); // рекурсивный вызов пока b не станет = a
      writeln(b);
    end;
end;

begin
    writeln('Vvedite chislo A');
    readln(a);
    writeln('Vvedite chislo B');
    readln(b);
    writeln();
    printRecursion(a, b-1);  // в функцию
    readln();
end.               

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

Vvedite chislo A
1
Vvedite chislo B
10

2
3
4
5
6
7
8
9