var

c:array[1..5] of longint;

n,i,a,b,t:longint;

function try(x:longint):boolean;

var

i:longint;

begin

try:=false;

if x mod 8 0 then exit;

for i:=1 to n do

if x mod c[i] =0

then exit;

try:=true;

end;

begin

readln(n);

for i:=1 to n do

read(c[i]);

readln;

readln(a,b);t:=0;

for i:=a to b do

if try(i)

then inc(t);

writeln(t);

end.

后七个点超时拉....

Why!!!!!!!!!!!!!!!!!!!!!!!!!