program mirko;
var c,k,n:int64;
    i:integer;
    r:real;
begin
     readln(c,k);
     n:=1;
     for i:=1 to k do n:=n*10;
     r:=n/2;
     if (c mod n)<r then c:=c-(c mod n)
        else
                         c:=c+(n-(c mod n));
     writeln(c);
     readln;
end.