program slatkisi;
var c:string[11];
    j,i,k:integer;
    flag:boolean;

begin
 readln(c);
 readln(k);
 i:=length(c)-k+1;
 if c[i]<'5' then
 begin
  for j:=i to length(c) do
   c[j]:='0';
 end
 else
 begin
  for j:=i to length(c) do
   c[j]:='0';
  j:=i-1;
  repeat
   if c[j]<'9' then
   begin
    inc(c[j]);
    flag:=false;
   end
   else
   begin
    c[j]:='0';
    flag:=true;
   end;
   dec(j);
  until (j=0) or  not flag;
 end;
 if c[1]='0' then write('1');
 writeln(c);
end.