program P1629;

var n,i:integer;

shu : array[1..15] of longint;

m : array[1..15] of longint;

k,a,b,s:int64;

begin

read(n);

for i:=1 to n do read(m[i]);

read(a,b);

k:=b-a;

s:=(k div 8)+1;

for i:=1 to n do

begin

shu[i]:= (k div m[i])+1;

s:=s-shu[i];

end;

writeln(s);

end.

那里错了？