Рекурсия(Паскаль)Поправьте

[Cas01]

Вот условие:

используя команды write(x) лишь при х=0..9, написать рекурсивную программу печати десятичной записи целого положительного числа n.

Я такие задачи никогда не делал, вот пытался написать процедуру, уверен что неправильно.Помогите кто нибудь с полным кодом программы.Очень нужно.Заранее спасибо!!!



procedure print (n:integer); {n>0}

begin

if n<10 then begin

write (n);

end else begin

print (n div 10);

write (n mod 10);

end;

end;

[Zer0]

рекурсия вроде правильная)
а основной код просто до безобразия

var n:integer;

begin
write ('N = '); readln(n);
print(n);
readln;
end.

[Cas01]

что то я не понимаю. у меня работать не хочет. Можно весь код пожалуйста , полное решение программы, надо бы сверить.

[Zer0]

var n:integer;

procedure print (n:integer); {n>0}
begin
if n<10 then write (n);
else begin
 print (n div 10);
 write (n mod 10);
end;
end; 

begin
write ('N = '); readln(n);
print(n);
readln;
end.

не забываем что integer должен быть меньше 65536, можно вместо него longint использовать, там до 6 знаков спокойно

[Cas01]

Ещё одна просьба: не мог бы ты написать то что ты вводишь и что у тебя выводит в результате?ПЛЗ

[Zer0]

ввожу 3474
вывод 3474

ввожу 65534
вывод 65534

ввожу 65536
вывод 0 (из за переполнения), но если поменять integer на longint то все норм

[Cas01]

Так а почему нам выводят тоже что мы вводили?Поясни если не сложно, я наверное как то не так условие задачи понял.

[Zer0]

написать рекурсивную программу печати десятичной записи целого положительного числа n

то есть я так понимаю просто вывести его по-цифрам, можно вывод пробелов еще в процедурке сделать

[Cas01]

вот я тоже насчет пробелов подумал.Не мог бы ты сделать что бы цмфры выводились в результате через пробел?)

[Zer0]

procedure print (n:integer); {n>0}
begin
if n<10 then write (n,' ');
else begin
 print (n div 10);
 write ((n mod 10),' ');
end;
end;