program Untitled;
var
   c, k, d, i, m, v, rm, rv : longint;
begin
     readln ( c );
     readln ( k );
     d := 1;
     for i := 1 to k do
         d := d * 10;
     m := c;
     v := c;
     while ( m mod d > 0 ) do
          m := m - 1;
     while ( v mod d > 0 ) do
          v := v + 1;
     rm := c - m;
     rv := v - c;
     if rm < rv then writeln ( m );
     if rv <= rm then writeln ( v );
readln;
end.