var a,bb,n,b,c:int64;
    i:integer;
    aa:real;
begin
        readln (a);
        readln (n);
        c:=1;

         if (n=1) then begin
                                aa:=a/10;

                                b:=round (aa)*10;
                                end;



        if (n>1) then begin

                for i:=1 to n do c:=c*10;

                aa:=a/c;

                b:=round (aa) * c;

                if (b=0) then b:=c;

        end;

        if (n=0) then b:=a;
        writeln (b);

end.