{$l functie.obj}
type sir=array[1..50] of integer;
var s1,s2:sir;
    a,b:integer;
    n,i:integer;
function Fct(x:integer; a:integer; b:integer):integer;far;external;
procedure TipMesaj(cod:integer);far;
begin
     if cod=0 then writeln('nr. nu se afla intre a si b')
              else writeln('nr. se afla intre a si b');
end;
begin
     readln(n);
     for i:=1 to n do
         readln(s1[i]);
     readln(a);
     readln(b);
     for i:=1 to n do
         s2[i]:=Fct(s1[i],a,b);
     for i:=1 to n do
         writeln(s2[i]);
end.