#include <cstdio>
#include <fstream>

#define maxn 500010
using namespace std;

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

int N, K, a, b, A[maxn], px, py, i, j;
long long sol;
int S[maxn], C[maxn];
int main ()
{

	fin >> N >> K >> a >> b;

	for (i = 1; i <= N; i++) {
		fin >> A[i];
		S[i] = (S[i - 1] + A[i]) % K;
	}
	++b;
	for (i = a; i <= N; i++) {
		
		++C[S[i - a]];
		if (i >= b) --C[S[i - b]];
		sol += C[S[i]];
	}
	fout << sol <<"\n";
	return 0;
}