Var
   i,j,k,n,p,r,t: longint;
   a: array [1..1000] of longint;

Begin
     read(input, n, k);
     read(input, p);
     for i:= 1 to p do
         begin
         read(input, a[i]);
         for j:= i-1 downto 1 do
             if (a[j+1] > a[j]) then
                begin
                t:= a[j];
                a[j]:= a[j+1];
                a[j+1]:= t;
                end
             else
                break;
         end;
     r:= 0;
     for i:= 1 to p do
         if ((i-1) mod n < k) then
            Inc(r, a[i]);
     writeln(output, r);
End.