#include <cstdio>

int n,k,a,b,s[500001],d[500001],i;
long long secvente=0;

int main()
{
    freopen("divk.in","r",stdin);
    freopen("divk.out","w",stdout);
    scanf("%d%d%d%d",&n,&k,&a,&b);
    for (i=1; i<=n; i++)
    {
        scanf("%d",&s[i]);
        s[i]=(s[i]+s[i-1])%k;
    }
    for (i=1; i<=n; i++)
    {
        if (i-a>=0) d[s[i-a]]++;
        if (i-b>0) d[s[i-b-1]]--;
        secvente=secvente+d[s[i]];
    }
    printf("%lld",secvente);
    return 0;
}