var a:array[1..1000000]of int64;
    n,k,m,b:longint;

procedure citire;
var i:longint;s,c:int64; f:text;
begin
 assign(f,'divk.in');
 reset(f);
 readln(f,n,k,m,b);
 s:=0;
 for i:=1 to n do
  begin
   readln(f,c);
   s:=s+c;
   a[i]:=s;
  end;
 close(f);
end;

procedure calc;
var i,j:longint; s,p:int64; f:text;
begin
 assign(f,'divk.out');
 rewrite(f);
 p:=0;
 for i:=1 to n do
  for j:=m to b do
   begin
    s:=-1;
    if i-j=0 then s:=a[j] else if i-j>0 then s:=a[j]-a[i];
    if (s>-1)and(s mod k=0) then inc(p);
   end;
 writeln(f,p);
 close(f);
end;

begin
 citire;
 calc;
end.