type vector=array[1..100] of integer;
var l:vector;
    f,g:text;
    k,b,i,n,kk,s,a,c,j:longint;
    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;
                                          c:=0;
                                          s:=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.