задание 3 Урок 21

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

задание 3 Урок 21

program U21z3;
procedure AtoB( a,b:integer);
begin
if (a < b)  then
  begin
    writeln(a);
    AtoB(a + 1,b);
  end;
end;

begin
  AtoB(2+1,8);
  readln();
end.