var a:array[1..1000] of real;
    i, n, x, y, s: integer;
begin
     readln (n);
     for i := 1 to n do
         read (a[i]);
     readln(x, y);
     for i := 1 to n do
         if (a[i] > x) and (a[i] <= y)
         then inc(s);
     writeln (n - s);
end.