Program slatkis;
var c,k,z,x,i,v:longint;
begin
   readln(c,k);
   v:=1;
   for i:=1 to k do v:=v*10;
   z:=c div v;
   x:=c mod v;
   for i:=1 to k-1 do x:= x div 10;
   if (x=5) or (x=6) or (x=7) or (x=8) or (x=9) then z:=z+1;
   z:=z*v;
   write(z);
end.