program mirko;
var n,x,r,k,s:longint;
    z:longint;
begin
readln(x);
readln(n);
if (n=0) then z:=1;
if (n=1) then z:=10;
if (n=2) then z:=100;
if (n=3) then z:=1000;
if (n=4) then z:=10000;
if (n=5) then z:=100000;
if (n=6) then z:=1000000;
if (n=7) then z:=10000000;
if (n=8) then z:=100000000;
if (n=9) then z:=1000000000;
r:=(x div z);
k:=(x mod z);
if k>=(z/2) then r:=r+1;
s:=r*z;

writeln(s);

end.