program aa;
var
i,j:longint;
a,b,c,l,n,k,p:longint;
f,f1:text;
begin
c:=1000000;
 assign(f,'suma.in');assign(f1,'suma.out');
 reset(f);rewrite(f1);
 readln(f,n,k,p);
 for i:=1 to n do
 begin
 readln(f,a);
  b:=a+b;
  l:=b mod p;
  if l=k then begin write(f1,k); close(f);close(f1);halt;end;
if (l<c) and(l>k)then c:=l;
end;
write(f1,c);
close(f);close(f1);
end.