var A, V : array[ 0..100 ] of longint;
       f, g : text;
       i, j, k, n, ans, l, u, nr : longint;

   begin
     assign( f, 'secv5.in' ); reset( f ); readln( f, N, L, U );
     for i:= 1 to N do readln( f, A[i] ); close( f );
     ans := 0;
      for  i := 1 to N do
        for j := i to N do
         begin
           fillchar( v, sizeof( v ), 0 );
           for k := i to j do v[ A[k] ] := 1;
           nr := 0;
           for k := 0 to 100 do nr := nr + V[k];
           if ( nr >= L ) and ( nr <= U ) then inc( ans );
         end;
      assign( g, 'secv5.out' ); rewrite( g ); writeln( g, ans ); close( g );
      writeln( ans );
     end.