type vector=array[0..999999] of byte;
var a:vector;
    n,r,rest:int64;
    d:longint;
    f,g:text;
function modulo(a:vector;b:longint):int64;
var t:int64;
    i:longint;
begin
        t:=0;
        for i:=a[0] downto 1 do
                t:=(t * 10+a[i])mod b;
        modulo:=t;
end;
procedure p(a:vector; n:int64; var rest:int64);
var i:longint;
begin
     i:=1;
     a[0]:=0;
     while n>0 do
        begin
        a[i]:=n mod 10;
        n:=n div 10;
        inc(i); inc(a[0]);
        end;
     rest:=modulo(a,d);
end;
BEGIN
   assign(f,'next.in'); reset(f);
   assign(g,'next.out'); rewrite(g);
   readln(f,n);
   readln(f,d);
   p(a,n,rest);
   r:=rest;
   p(a,d-r,rest);
   writeln(g,n+rest);
   close(f); close(g);
END.