var f1,f2:text;
    i,n,k,a,b,p,nr:longint;
    s,v:array[0..2000000] of longint;
begin
        assign(f1,'divk.in');
        reset(f1);
        assign(f2,'divk.out');
        rewrite(f2);
        read(f1,n,k,a,b);
        for i:=1 to n do
        begin
                read(f1,p);
                s[i]:=(s[i-1]+p) mod k;
        end;
        for i:=1 to n do
        begin
                if i>b then dec(v[s[i-b-1]]);
                if i>=a then inc(v[s[i-a]]);
                inc(nr,v[s[i]]);
        end;
        writeln(f2,nr);
        close(f1);
        close(f2);
end.