#include<stdio.h>
#include<fstream.h>
#define N 500001
long long s[N],l=0;
long n,k,a,b,c,i,j;
int main()
{freopen("divk.in","r",stdin);
ofstream f("divk.out");
scanf("%ld%ld%ld%ld",&n,&k,&a,&b);
s[0]=0;
for(i=1;i<=n;i++)
     {scanf("%ld",&c);
     s[i]=s[i-1]+c;}
for(j=a;j<=b;j++)
     {for(i=j;i<=n;i++)
     if((s[i]-s[i-j])%k==0)
            l++;}
f<<l;
fclose(stdin);
f.close();
return 0;}