Рекурсия: перевод целого числа из десятичной системы счисления в восьмеричную - Pascal (97391)

Формулировка задачи:

Проверочная работа напишите пж. Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

Решение задачи: «Рекурсия: перевод целого числа из десятичной системы счисления в восьмеричную»

Листинг программы

uses crt;
procedure dectooct(dec:word;var res:string);
var s:string;
begin
 if dec>7 then dectooct((dec div 8),res) else res:='';
 str((dec mod 8),s) ;
 res:=res+s;
end;
var N:word;
    ss:byte;
    s:string;
begin
clrscr;
write('Vvedite chislo n=');
readln(n);
dectooct(n,s);
writeln(s);
readln
end.

Объяснение кода листинга программы

Вводимое число n записывается в переменную N типа word.
Затем вызывается функция dectooct, в которую передаются число N и пустая строка s. Функция выполняет перевод числа из десятичной системы в восьмеричную и возвращает результат в переменной s.
Результат выводится на экран с помощью функции writeln.