program slatkisi;
var c, p : longint;
    i : integer;
    k : shortint;

begin
    readln(c, k);

    p := 1;
    for i := 1 to k do
        p := p * 10;

    if (c mod p) < (p div 2) then
        writeln((c div p)*p)
    else
        writeln(((c div p)+1)*p);
end.