Задача 2 Урок 20

Задача 2 Урок 20

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

var A, B :integer;

function num(A, B:integer):integer;
begin
  if(A > B) then
    A := A - 1;
  else if(A < B) then
    A := A + 1;
  if(A <> B) then
    writeln(A);
    num(A,B);
end;

begin
  readln(A);
  readln(B);
  num(A,B);
  readln();
end.