USES CRT;

function IntToHex(N : integer):string;
{функция IntToHex() преобразует n в строку,
содержащую шестнадцатеричное представление n}
const
Hex : array[0..15] of char =
'0123456789ABCDEF';
var i, j, k : integer;
Result, s : string;
begin
Result := '';{исходное значение}
k := n;
repeat {цикл определения значения числа в 16-ой системе счисления}
j := k div 16; {целая часть от деления}
i := k mod 16; {остаток}
Result := Result + Hex[i];
k := j;
until j = 0; {останов, осли нечего больше делить}
S := Result;
for i := 1 to Length(Result) do
S[Length(S)-i+1] := Result[i];
IntToHex := S; {возврат результата в основную программу}
end;

var n : integer;

BEGIN {основная программа}

clrscr;
Write('Введите целое десятичное число: ') ;
Readln(n);
Write('Число в шестнадцатеричной системе счисления: ', IntToHex(n), 'h'); {вывод результата}
readln;

END.