Рекурсивная процедура, вывести отрезок натурального ряда чисел Опции

[Melany]

Народ, если не сложно, помогите с задачей:

Написать рекурсивную процедуру, при выполнении которой на экран будет выводиться отрезок натурального ряда чисел.

[volvo]

Ну а так получше будет

Лучше чем что? Кстати, почему бы не так:

var
  n: integer;

procedure rec(i: integer);
begin
  writeln(i);
  if i < n then rec(i + 1);
end;


begin
  write('n='); readln(n);
  rec(1);
end.

?

[kosyak]

Лучше чем что? Кстати, почему бы не так:

var
  n: integer;

procedure rec(i: integer);
begin
  writeln(i);
  if i < n then rec(i + 1);
end;
begin
  write('n='); readln(n);
  rec(1);
end.

?

Ну можно и так, уж не такая большая разница.
Я написал 2 кода в одном сообщении... вот второй получше чем первый... Ну может не получше, просто там n вводится с клавы...