var f,g:text;
    a,b,n,i,nr,j:integer;
    v:array[1..100] of integer;
begin
assign(f,'teams.in'); reset(f);
assign(g,'team.out'); rewrite(g)
read(f,n,a,b); nr:=0;
for i:=1 to n do
read(f,v[i]);
nr:=0;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if (v[i]+v[j]>=a) and (v[i]+v[j]<=b) then
nr:=nr+1;
end;
write('ash are urm nr de posibilitati ');
writeln(g,nr);
close(f); close(g);

end.