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

var
    decimal: word;
 
function hexadecimal(decimal:word):string;
var digit: byte; ch: char;
begin
    while decimal > 0 do begin
        digit := decimal mod 16;
        if digit in [10..15] then
            case digit of
            10: ch := 'A';
            11: ch := 'B';
            12: ch := 'C';
            13: ch := 'D';
            14: ch := 'E';
            15: ch := 'F'
            end
        else
            ch := chr(ord('0') + digit);
        hexadecimal := ch + hexadecimal;
        decimal := decimal div 16
    end;
end;
 
begin
    write('Decimal: ');
    readln(decimal);
 
    writeln(hexadecimal(decimal));
 
readln
end.

function hexadecimal(decimal:word):string;

uses crt;
procedure DEC_HEX(x:integer;var res:string);
//цифры в СС 16
const digits:array [0..15] of char = ('0','1','2','3','4','5','6','7',
                                      '8','9','A','B','C','D','E','F');
begin
   if x>15 then DEC_HEX((x div 16),res)//если число больше 15, то берум остаток
                                       //от деления на 16
   else res:='';//иначе ничего
   res:=res+digits[x mod 16];//к числу добавляем цифру остатка от деления
end;
var a:integer;
    s:string;
begin
write('Введите число в СС 10 a=');
readln(a);
DEC_HEX(a,s);
write('Это число в СС 16=',s);
end.