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