var a:array[1..100] of longint;f,g:text;n,l,u,ns,j,i,q:longint;
begin
assign (f,'secv5.in');
reset (f);
assign (g,'secv5.out');
rewrite (g);
read (f,n,l,u);
for i:=1 to n do
read (f,a[i]);
ns:=(n-(u-l))*(n+1-(u-l)) div 2;
j:=0;
repeat
j:=j+1;
q:=0;
for i:=j+1 to n do
begin
if a[j]=a[i] then if q<u-l+2 then ns:=ns-1;
q:=q+1;
end;
write (g,ns);
until j=n-1;
end.