program Project2;

{$APPTYPE CONSOLE}

var
a:array[1..50] of integer;
i,n,t1,t2,nom,max,nmax:integer;
fl,fl2:boolean;
ft1,ft2:text;
st:string;
begin
st:='d:\1.txt';
Assignfile(ft1,st);
reset(ft1);
fl:=true;
fl2:=true;
read(ft1,t1,t2,n);
nom:=n;
for i:=1 to n do
read(ft1,a[i]);
for i:=1 to n do
if ((odd(a[i]))=false) and (fl=true) then begin nom:=i-1; fl:=false; end;
for i:=1 to nom do
 if (a[i]>=t1) and (a[i]<=t2) then
  if fl2=true then begin
  max:=a[i];
  nmax:=i;
  fl2:=false;
  end
  else
  if max<=a[i] then begin
   max:=a[i];
   nmax:=i;
   end;
closefile(ft1);
st:='d:\2.txt';
assignfile(ft2,st);
append(ft2);
writeln(ft2,'Otrezok [t1,t2]=[',t1,',',t2,']');
writeln(ft2,'Koli4estvo elementov= ',n);
writeln(ft2,'Massiv:');
for i:=1 to n do
write(ft2,a[i],' ');
writeln(ft2,' ');
if fl2=false then
writeln(ft2,'Otvet:',nmax)
else
writeln(ft2,'Niodin element ne popodaet v zadannui diapazon');
closefile(ft2);
readln;
end.