program divk;
type vect = array [1..100000] of 1..10000000;
var V : vect;
    i,j,N,A,B,K,S,nr : 0..100000;
    f : text;
begin
assign(f,'divk.in');
reset(f);
readln(f,N,K,A,B);

for i := 1 to N do
readln(f,V[i]);
close(f);
nr := 0;
j := 0;


repeat

inc(j);

S := 0;
if n-j>=A-1 then
for i := j to n do begin

S := S+V[i];

if i-j>=A-1 then if S mod k = 0 then inc(nr);
if i-j=B-1 then break;

end;

until n-j=A-1;


write(nr);
assign(f,'divk.out');
rewrite(f);

write(f,nr);

close(f);


end.