program mmm;
var f:text;
    n:ansistring;
    d:int64;
    p,s,i,l:longint;
    c,er,t,q:integer;
    k,v:array[1..1000001] of 0..9;
begin
  assign(f,'next.in');
  reset(f);
  readln(f,n);
  readln(f,d);
  p:=length(n);
  s:=0;
  for i:=1 to p do
  begin
    val(n[i],c,er);
    k[i]:=c;
    s:=s*10+c;
    s:=s mod d
  end;
  s:=d-s;
  l:=0;
  repeat
    l:=l+1;
    v[l]:=s mod 10;
    s:=s div 10
  until s=0;
  for i:=1 to p do begin
                    if i>l then q:=0
                           else q:=v[i];
                    t:=(k[p-i+1]+q) div 10;
                    k[p-i+1]:=(k[p-i+1]+q) mod 10;
                    k[p-i]:=k[p-i]+t
                   end;
  close(f);
  assign(f,'next.out');
  rewrite(f);
  for i:=1 to p do  write(f,k[i]);
  close(f)
end.