var input, base, i:integer;
	output:string;
	alphabet:array [0..19] of char;
begin
    for i:=0 to 9 do
    begin
        alphabet[i] := chr(48+i);
        alphabet[i+10] := chr(65+i);
    end;
	output:= '';
	base := 20;
	readln(input);
	while input > 0 do
	begin
		output := alphabet[input mod base] + output;
		input := input div base;
	end;
	writeln(output);
end.