var v,r:array[0..50000] of integer;
    n,k,a,b,s,x,i,j,o :integer;
    f,g:text;

begin
assign(f,'divk.in');reset(f);
assign(g,'divk.out');rewrite(g);

readln(f,n,k,a,b);

s:=0;

for i:=1 to n do begin
                 readln(f,x);
                 v[i]:=x mod k;
                 r[i+1]:=r[i]+v[i];
                 if i>a then r[i+1]:=r[i+1]-v[i-a];
                 if r[i+1] mod k=0 then inc(s);
                 end;
{for i:=1 to a do r[i]:=a;}


b:=b-a;

{for i:=a to n+1 do write(r[i],'  ');}

{for i:=a to n+1 do begin
                 if (r[i])mod k=0 then inc(s);
                 o:=r[i];
                 for j:=a to b do begin
                               o:=o+v[i+j-1];
                               if o mod k=0 then inc(s);
                               end;
                 end; }

for j:=1 to b do begin
                 for i:=1 to n do
                 r[i+1]:=r[i+1]+v[i+j];
                 if (r[i+1] mod k)=0 then inc(s);
                 end;



writeln(g,s);

close(f);
close(g);
end.