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

Procedure R(n:integer);Beginif n>1 then R(n-1);Write(n,' ')End;Var   n:integer;BeginWrite('n = ');ReadLn(n);R(n)End.