Написать рекурсивную процедуру

[Дюша Метелкин]

Написать рекурсивную процедуру для вывода на экран цифр натурального числа в обратном порядке. Применить эту процедуру ко всем числам из интервала от А до В.
Буду благодарен!

[newerow1989]

procedure AB(n:integer);
begin
   If n<10 then
      Write(n) else
   begin
      Write(n mod 10);
      AB(n div 10);
   end;
end;

const a=10;
      b=100000;
var n:integer;
begin
   Randomize;
   n:=Random(b+a)+a;
   Write(n,'  <==>  ');
   AB(n);
   Writeln;
   Readln;
end.

[Serge_Bliznykov]

Применить эту процедуру ко всем числам из интервала от А до В.

скорее - тут цикл нужен:

begin
   for n:=a to b do begin
     Write(n,'  <==>  ');
     AB(n);
     Writeln;
   end;

[Дюша Метелкин]

так как будет выглядеть конечная программа?

[Serge_Bliznykov]

Дюша, всё настолько плохо, что Вы даже не понимаете, для чего какие строчки в коде написаны и что они делают?
Или почему Вы не можете собрать программу из двух постов, заменив то, что Вам нужно?!!

procedure AB(n:integer);
begin
   If n<10 then
      Write(n) else
   begin
      Write(n mod 10);
      AB(n div 10);
   end;
end;

var n,a,b:integer;
begin
  WriteLn('Введите A и B'); ReadLn(a,b);
  for n:=a to b do begin
     Write(n,'  <==>  ');
     AB(n);
     Writeln;
   end;
   Readln;
end.