var a:array[0..1000000] of byte;
d,c:int64;
i:longint;
f,g:text;
cc:char;
begin
assign(f,'next.in');
assign(g,'next.out');
reset(f);
rewrite(g);
a[0]:=0;
while not eoln(f) do begin
	read(f,cc);
   inc(a[0]);
   val(cc,a[a[0]]);
   end;
read(f,d);
for i:=1 to a[0] do begin
	c:=c*10+a[i];
	if c<>0 then c:=c mod d;
   end;
if c<>0 then  begin
	c:=d-c;
	for i:=a[0] downto 2 do begin
   	if c<>0 then begin
      	a[i]:=a[i]+(c mod 10);
   		C:=C DIV 10;
         if a[i]>=10 then begin
         	a[i]:=a[i]-10;
            inc(a[i-1]);
         	end;
      	end;
      if (c=0) and (a[i+1]<10) then break;
      end;
   end;
for i:=1 to a[0] do write(g,a[i]);
writeln(g);	
close(f);
close(g);
end.