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

[Melany]

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

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

[kosyak]

program pr;
var i: integer;

procedure rec(var ii: integer; n: integer);
begin
writeln(ii);
if ii<n then
begin
inc(ii);
rec(ii,n);
end;
end;
begin
i:=1;
rec(i,5);
end.


Делов-то...

Добавлено через 4 мин.
program pr;
var i,n: integer;

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

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