const
  digits:array[0..15] of char='0123456789ABCDEF';
var
  n,base:integer;
  r:string;
begin
  writeln;
  write('Enter decimal number: ');
  readln(n);
  write('Enter new base: ');
  readln(base);
  r:='';
  repeat
    r:=digits[n mod base]+r;
    n:=n div base;
  until n=0;
  writeln('Result: ',r);
  readln;
end.