var v:array[0..500000]of int64;
    f,g:text;
    n,k,a,b,x,i,j,c:longint;
    s:int64;
begin
assign(f,'divk.in');reset(f);
assign(g,'divk.out');rewrite(g);
readln(f,n,k,a,b);v[0]:=0;
for i:=1 to n do begin
    readln(f,x);
    v[i]:=v[i-1]+x;
end;
for i:=a to b do
    for j:=1 to n-i+1 do begin
        s:=v[j+i-1]-v[j-1];
        if s mod k=0 then inc(c);
        end;
writeln(g,c);
close(g);
end.