var a,b,c:int64;
k:integer;
begin
readln(c,k);
if k=1 then
begin
a:=10;
if (c mod a>=5) then c:=c+(10-(c mod a)) else c:=c-(c mod a);
end;
if k=2 then
begin
a:=100;
if (c mod a>=50) then c:=c+(100-(c mod a)) else c:=c-(c mod a);
end;
if k=3 then
begin
a:=1000;
if (c mod a>=500) then c:=c+(1000-(c mod a)) else c:=c-(c mod a);
end;
if k=4 then
begin
a:=10000;
if (c mod a>=5000) then c:=c+(10000-(c mod a)) else c:=c-(c mod a);
end;
if k=5 then
begin
a:=100000;
if (c mod a>=50000) then c:=c+(100000-(c mod a)) else c:=c-(c mod a);
end;
if k=6 then
begin
a:=1000000;
if (c mod a>=500000) then c:=c+(1000000-(c mod a)) else c:=c-(c mod a);
end;
if k=7 then
begin
a:=10000000;
if (c mod a>=5000000) then c:=c+(10000000-(c mod a)) else c:=c-(c mod a);
end;
if k=8 then
begin
a:=100000000;
if (c mod a>=50000000) then c:=c+(100000000-(c mod a)) else c:=c-(c mod a);
end;
if k=9 then
begin
a:=1000000000;
if (c mod a>=500000000) then c:=c+(1000000000-(c mod a)) else c:=c-(c mod a);
end;
writeln(c);
end.