old/PAS/syst.pp

const
  buc : array[0..31] of string[1] = ('0','1','2','3','4','5','6','7','8','9','A','B','C',
  'D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V');

VaR
  inp : longint;
  outp : string;

BEGIN
  ReadLn(inp);
  while inp > 31 do begin insert(buc[inp mod 32],outp,1); inp := inp div 32; end;
  insert(buc[inp mod 32],outp,1);
  WriteLn(outp);
end.