var l:array[1..500] of integer;
    f,g:text;
    i,n,s,j,kk,c,a,b,k: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;
    c:=0;
    s:=0;
     while i<=n do
     begin
     j:=i;
     repeat
     s:=s+l[j];
     c:=c+1;
     if (s mod k=0) and ((c<=b) and (c>=a)) then begin kk:=kk+1;
                                          s:=0;
                                          c:=0;
                                          if a<>1 then dec(j);
                                          end
                                          else inc(j);
                              if c>b then begin c:=0;
                                                inc(j);
                                                s:=0;
                                                end;
                                                inc(j);
                until j=n;
       inc(i);
       end;
       assign(g,'divk.out');
       rewrite(g);
       write(g,kk);
       close(g);
       end.