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

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

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

var a1,b1:integer;
function vivod(a,b:integer):integer;
begin
  if a<b then
  begin
    write(a);
    result:=vivod((a+1),b);
  end
  else
    result:=a;
end;
begin
  a1:=2;
  b1:=8;
  vivod(a1+1,b1);
  readln();
end.