uses crt;
var c,k,a,b,i:longint;
    x:real;
begin
clrscr;
read(c,k);
b:=1;
for i:=1 to k do b:=b*10;
x:=c/b;
a:=round(x)*b;
write(a);
readkey
end.