var l:array[1..500000] of integer;
    f,g:text;
    i,n,s,j:longint;
    kk,c,a,b,k:integer;
    begin
    assign(f,'divk.in');
    reset(f);
    read(f,n,k,a,b);
    for i:=1 to n do
    readln(f,l[i]);
    close(f);
    kk:=0;
    i:=1;
    s:=0;
     while i<=n do
     begin
     s:=s+l[i];
     c:=c+1;
     if (s mod k=0) and ((c<=b) and (c>=a)) then begin kk:=kk+1;
                                          s:=0;
                                         if (i<n) and (c>2) then dec(i);
                                         c:=0;
                                          end
                                else inc(i);
                              if c>b then begin c:=0;
                                                s:=0;
                                                end;
       end;
       assign(g,'divk.out');
       rewrite(g);
       write(g,kk);
       close(g);
       end.