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

Урок 21 Задача 3:

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

procedure konsol (a, b: integer);
begin
  if not (a = b-1) then
  begin
    a:= a + 1;
    write (a, '  ');
    konsol (a, b);
  end;
end;

begin
  konsol (2, 13);
  readln();
end.

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

3  4  5  6  7  8  9  10  11  12