type arr = array[1..100] of real;

var b, d, a : arr;
	x, z, z1, z2, x1, y1 : real;
	k, i, ans, n : integer;

begin

read(k);
for i:=1 to k do begin
	read(b[i]);
end;
read(z1, z2);
read(x1, y1);

n:=1;
for i:=1 to k do begin
	if (b[i] > 0) and (b[i] < z2) then begin
		d[n]:=-b[i];
		n:=n+1;
	end;
end;

for i:=1 to n do begin
	if (d[i] > x1) and (d[i] < y1) then
		a[i]:=sqr(d[i])
	else
		a[i]:=d[i]/2;
end;


ans:=-1;
for i:=1 to k do begin
	if b[i] > 0 then begin
		if ans=-1 then begin
			ans:=i;
		end;
		if b[ans] > b[i] then begin
			writeln(b[ans],' ', b[i]);
			ans:=i;
		end;
	end;
end;

write(i);

end.