#include <fstream>
using namespace std;
ifstream fin("divk.in");
ofstream fout("divk.out");
long long n,k,a,b,i,j,x,s[500001],rez;
int main()
{
    fin>>n>>k>>a>>b;
    for(i=1; i<=n; i++)
    {
        fin>>x;
        x=x%k;
        s[i]=x+s[i-1];
    }
    for(i=a; i<=b; i++)
        for(j=i; j<=n; j++)
            if((s[j]-s[j-i])%k==0)
                rez++;
    fout<<rez;
}