var v:array[1..500000] of longint;
    n,k,i,j,a,b,nr,s,p:longint;
    f:text;
procedure citire;
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);
end;

procedure caut;
begin
i:=1;
while (i<=n-a+1)do begin
      j:=i;s:=0;p:=0;
      while (p<b)and(j<=n) do begin
            p:=p+1;
            s:=s+v[j];
            if p>=a then if s mod k = 0 then inc(nr);
            j:=j+1;
            end;
      i:=i+1;
      end;
end;

begin
citire;
nr:=0;
caut;
assign(f,'divk.out');rewrite(f);
writeln(f,nr);
close(f);
end.