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

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

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

var
  a, b :integer ;

function printRecursion(a, b :integer):integer;
begin
  if (b = a) then
     begin
       result := a
     end
     else
     begin
       result := printRecursion(a, b-1);
       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
11
--------------
2
3
4
5
6
7
8
9
10