program slatkisi;
var b:integer; a,c,d:longint;
begin
readln(a);
readln(b);
d:=1;
for c:=1 to b do
d:=d*10;
c:=a mod d;
a:=a-c;
if c>=d div 2 then a:=a+d;
writeln(a);
readln;
end.