var v,r:array[0..500] 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);

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];
                 end;
{for i:=1 to a do r[i]:=a;}
s:=0;

b:=b-a;
a:=1;
for i:=a to n 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-a];
                               if o mod k=0 then inc(s);
                               end;
                 end;
writeln(g,s);

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