program drugi;

var s,s1,pomocni:string;
        broj,v1:longint;
        provjera:boolean;
        br,k,i,p:integer;
        promjena:integer;


begin
        readln(s);
        readln(k);

        for i:=length(s)-k+1 to length(s) do
        begin
                s1:=s1+s[i];
                val(s1,broj,p);
        end;


        v1:=1;
        if k<>1 then
        begin
        for i:=1 to k-1 do
        begin
                v1:=v1*10;
        end;
        end;
        v1:=v1*5;


                if broj<v1 then
                begin
                        for i:=length(s)-k+1 to length(s) do
                        begin
                                s[i]:='0';
                        end;
                end;


                if broj>=v1 then
                begin


                        for i:=length(s)-k+1 to length(s) do
                        begin
                                s[i]:='0';
                        end;



                        br:=0;
                        provjera:=true;

                        while provjera=true do
                        begin

                                br:=br+1;
                                if s[length(s)-br-k+1]='9' then
                                begin
                                        s[length(s)-br-k+1]:='0';
                                end
                                else
                                begin
                                        provjera:=false;
                                        val(s[length(s)-br-k+1],promjena,p);
                                        promjena:=promjena+1;
                                        str(promjena,pomocni);
                                        s[length(s)-br-k+1]:=pomocni[1];
                                        pomocni:='';
                                end;
                        end;
                end;

        writeln(s);
end.