Program infoarena;
var F,FF:text;
	V:array[1..500000] of longint;
      aux, k,subsecventa,S,It,I,A,B,N,M:longint;
Begin
Assign(F,'divk.in');
Reset(F);
Readln(F,N,K,A,B);
For i:=1 to N do
	Readln(F,V[i]);
subsecventa:=0;
close(F);
While A<=B do
Begin
	For i:=1 to (N+1)-A Do
		Begin   aux:=i; S:=0;
			While it<=A do     {IT este intervalul}
				begin
				S:=S+V[aux];     {S este suma}
				inc(aux);
				inc(it);
				end;
		If S MOD K = 0 Then inc(Subsecventa);      {Subsecventa este numarul subsecventelor a caror suma se Div cu 5}
		It:=1;
		End;
inc(A);


End;
Assign(FF,'divk.out');
rewrite(FF);
writeln(FF,subsecventa);
close(FF);
end.