Program szervezo;
  const maxn=10;
        maxc=10000;
  var n,k,m,c: integer;
      ig: array[1..maxc] of integer;
      sor: array[1..maxn] of integer;
      se,su,sdb,db: integer;
      i: integer;
begin
  readln(n,k,m,c);
  for i:=1 to c do read(ig[i]);
  readln;
  sdb:=0; se:=1; su:=0; db:=0;
  for i:=1 to c do  
  begin
    while (sdb>0) and (sor[se]<ig[i]) do
    begin
      inc(se); 
      if se>n then se:=1;
      dec(sdb);
    end;
    if sdb<n then
    begin
      inc(su); 
      if su>n then su:=1;
      inc(sdb);
      sor[su]:=ig[i]+m-1;
      inc(db);
    end;
  end;
  writeln(db);
end.
2 10 4 6
1 2 2 5 6 7