Рекурсия для печати числа

Задача. Используя только команды write(x) при 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;