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

Задача 3 урок 20

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

program u20z3;
var a,b:integer;

function fun(a1,b1:integer):integer;
begin
  write(b1,' ');
  if ((b1+1)=a1) then
    result:=0
  else
    result:=fun(a1,b1+1);
end;

begin
  writeln('vvedite a i b');
  readln(a,b);
  if (a>(b+1)) then
    fun(a,b+1)
  else
    if (b>(a+1)) then
      fun(b,a+1)
    else
      writeln('net takih chisel');
  readln();
end.