program slatkisi;
var c,k,y,m,z:longint;
begin
 readln (c,k);
 case k of
 0 : z:=c;

 1 : z:=(round((c)/(10)))*10;

 2 : z:=(round((c)/(100)))*100;

 3 : z:=(round((c)/(1000)))*1000;

 4 : z:=(round((c)/(10000)))*10000;

 5 : z:=(round((c)/(100000)))*100000;

 6 : z:=(round((c)/(1000000)))*1000000;

 7 : z:=(round((c)/(10000000)))*10000000;

 8 : z:=(round((c)/(100000000)))*100000000;

 9 : z:=(round((c)/(1000000000)))*1000000000;
   end;
 writeln (z);
 readln;
end.