var i,j,N,L,U,k,m,p,suma:longint;
    s:array[1..10000] of integer;
    f,g:text;
begin
assign(f,'secv5.in');reset(f);
assign(g,'secv5.out');rewrite(g);
read(f,N,L,U);
writeln;
for i:=1 to N do Readln(f,s[i]);
for i:=1 to N-L+1 do begin
    k:=L;
    p:=k;
    while (i+k<=N+1) do begin
        for j:=i to i+k-2 do
            for m:=j+1 to i+k-1 do
                 if s[j]=s[m] then p:=p-1;
        if p in [L..U] then suma:=suma+1;
        k:=k+1;
        p:=k;end;
                     end;
write(g,suma);
close(f);
close(g);
end.