var n:double; k:byte; p,i:longint;
begin
readln(n);
readln(k);
p:=1;
for i:=1 to k do p:=p*10;
n:=n/p;
n:=round(n);
n:=n*p;
writeln(n:0:0);
readln;
end.