program jgcd;
function update(x: longint; R: word): string;
var
i, ost: longint;
s, st, chislo: string;
begin
repeat
ost := x mod R;
x := x div R;
if ost > 9 then
st := chr(ord('A') - 10 + ost)
else
str(ost, st);
s := s + st;
until x = 0;
for i := 1 to length(s) do
chislo := chislo + s[length(s) - i + 1];
update := chislo;
end;
{ ----------------- }
var
n: integer;
begin
write('Cislo v 10 sisteme: ');
readln(n);
writeln('Cislo v 16 sisteme: ', update(n, 16));
readln;
end.