Дано натуральное число n. Выведите все числа от 1 до n. на паскаль.цикл не использовать.рекурсия

Procedure R(n:integer);
Begin
if n>1 then R(n-1);
Write(n,' ')
End;

Var
   n:integer;
Begin
Write('n = ');
ReadLn(n);
R(n)
End.