var f,g:text;
test,fz,adev1,adev2,ss,s,x,k,q,w,h,max,poz,i,n,m:longint;
a,e,r:array[1..100] of integer;
begin
assign(f,'tricouri.in');reset(f);
assign(g,'tricouri.out');rewrite(g);
read(f,n);
read(f,m);
for i:=1 to n do
read(f,a[i]);
k:=0;
fz:=0;
repeat
inc(k);
read(f,q);
read(f,w);
for i:=1 to h do
r[i]:=0;
h:=0;
for i:=1 to n do
e[i]:=a[i];
repeat
max:=0;
poz:=0;
for i:=1 to n do
if e[i]>max then begin
max:=e[i];
poz:=i;
end;
inc(h);
r[h]:=max;
e[poz]:=-1;
until h=q;
s:=0;
for i:=1 to h do
s:=s+r[i];
x:=0;
if s mod w=0 then writeln(g,s)
             else begin
             ss:=s;
             repeat
adev1:=0;
adev2:=0;
inc(x);
ss:=s-x;
if (ss mod w=0) then inc(adev1);
for i:=1 to n do
if x=a[i] then inc(adev2);
until (adev1<>0)and(adev2<>0);
if ss<>0 then writeln(g,ss)
         else writeln(g,'-1');
end;
until k=m;
close(f);
close(g);
end.