COSO667 Pascal

var n,r:longint;
    a:array[1..1000000] of longint;


procedure nhap;
begin
        readln(n,r);
end;

procedure giai;
var x,d,i:longint;
begin
    d:=0;
    while n>0 do
    begin
        x:=n mod r;
        inc(d);
        a[d]:=x;
        n:=n div r;
    end;
    for i:=d downto 1 do
        write(a[i]);
end;



begin
    assign(input, 'coso667.inp');reset(input);
    assign(output, 'coso667.out');rewrite(output);
    nhap;
    giai;
end.