var v,x:array[1..100] of longint;
    l,i,j,u,s,q,n,k,aux,p:longint;
    ok:boolean;
    f,g:text;
begin
assign(f,'secv5.in');
assign(g,'secv5.out');
reset(f);
rewrite(g);
readln(f,n,l,u);
for i:=1 to n do readln(f,v[i]);
s:=0;
for i:=1 to n-1 do begin
q:=1;    x[q]:=v[i];
p:=0;
for j:=i+1 to n do begin
                   p:=0;
                   q:=q+1;
                   x[q]:=v[j];
                   repeat
                   ok:=true;
                   for k:=1 to q-1 do if x[k]>x[k+1] then begin
                                       aux:=x[k];
                                       x[k]:=x[k+1];
                                       x[k+1]:=aux;
                                       ok:=false;
                                       end;
                   until ok;
                   for k:=1 to q do if x[k]<>x[k-1] then p:=p+1;
                   if (p>=l) and (p<=u) then s:=s+1;
                   end;
end;
writeln(g,s);
close(f);
close(g);
end.