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