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