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

Урок 21

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

var max, min: integer;

procedure path(max, min: integer);
begin
  if (max) > (min) then
  begin
    path(max - 1, min);
    write(max, ' ');
  end;
end;

begin
  max := 48;
  min := 23;
  path(max - 1, min);
  readln();
end.

КОНСОЛЬ

24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47