program slatkisi;

var
   c : extended;
   k, i : integer;
   dek, rez : longint;

begin
   readln (c);
   readln (k);
   dek := 1;
   for i := 1 to k do dek := dek*10;
   c := c/dek;
   if frac (c)<0.5 then
      rez := trunc (c)
   else
      rez := trunc (c)+1;
   writeln (rez*dek);
end.