Рекурсия. Процедура перевода чисел из десятичной системы счисления в другие

Алгоритм решения задачи: 

Это пример рекурсивной процедуры (которая вызывает себя из своего тела).

Программа на языке Паскаль: 

var
    k: integer;
    s: byte;
 
procedure scale (a: integer; b: byte);
    begin
        if b > 10 then
            write ('Основание должно быть меньше 10!')
        else begin
            if a > 1 then
                scale (a div b, b);
            write (a mod b)
        end;
    end;
 
begin
 
    write ('Введите число: ');
    readln (k);
 
    write ('Перевод в систему счисления: ');
    readln (s);
 
    scale (k, s);
 
readln
end.

Комментарии

А как перевести с других

А как перевести с других систем в десятичную?
Вы рассматривали случай что система счисления меньше десятичной а как поступить в случае если она больше?