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