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