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

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

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

var a, b :integer;

function inputN(a, b :integer) :integer;
begin
  if a < b then  
  begin
    write(a, ' ');
    inputN := inputN(a + 1, b);
  end
  else
    if b < a then
    begin
      write(b, ' ');
      inputN := inputN(b + 1, a);
    end;    
end;

begin
  a := 14;
  b := 8;
  inputN(a, b);
  readln();
end.