#include <bits/stdc++.h>

using namespace std;

ifstream fin("divk.in");
ofstream fout("divk.out");

int n,k,a,b,x,s[500001],f[100001];
long long ans;

int main()
{
    fin >>n >>k >>a >>b;
    for(int i = 1;i <= n;i++)
    {
        fin >>x;
        s[i] = (s[i-1]+x)%k;
    }
    for(int i = 1;i  <= n;i++)
    {
        if(i >= a)
        {
            f[s[i-a]]++;
        }
        ans+=f[s[i]];
        if(i >= b)
        {
            f[s[i-b]]--;
        }
    }
    fout <<ans;
    return 0;
}