program mass;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
if a[1]<a[10] 
then 
  begin for i:=2 to 9 do
          if (a[i]>a[1]) and a[i]<a[10] then k:=i;
          writeln(k);
  end
else writeln('неравенство не соблюдено, первый элемент не меньше десятого');
readln
end.

VAR
 A:ARRAY[1..200] of WORD;
 N,N_even,N_even_max:Byte;
 i:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   ReadLn(A[i]);
  end;
 N_even_max:=0;
 i:=0;
 Repeat
  Inc(i);
 Until ((A[i] mod 2)=0) or (i=N);
 If ((A[i] mod 2)=0) and (i=N) then
  N_even_max:=1
 else
  Begin
   i:=0;
   Repeat
    N_even:=0;
    repeat
     Inc(i);
    until ((A[i] mod 2)=0) or (i=N);
    If i<N then
     begin
      N_even:=1;
      repeat
       Inc(N_even);
       Inc(i);
      until ((A[i] mod 2)=1) or (i=N);
      If (i<N) or ((i=N) and ((A[i] mod 2)=1)) then Dec(N_even);
     end;
    If N_even_max<N_even then N_even_max:=N_even;
   Until i=N;
  End;
 WriteLn('Max number of even adjacent elements is ',N_even_max);
 ReadLn;
END.

VAR
 A:ARRAY[1..200] of WORD;
 A_min:WORD;
 N,N_min:Byte;
 i:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   ReadLn(A[i]);
  end;
 A_min:=A[1];
 For i:=2 to N do
  If A[i]<A_min then A_min:=A[i];
 N_min:=0;
 For i:=1 to N do
  If A[i]=A_min then Inc(N_min);
 WriteLn('Number of minimum elements is ',N_min);
 ReadLn;
END.

VAR
 A:ARRAY[1..200] of WORD;
 N:Byte;
 i:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   ReadLn(A[i]);
  end;
 i:=2;
 If (A[1] mod 2)=1 then
  begin
   Repeat
    Inc(i);
   Until ((A[i] mod 2)<>(i mod 2)) or (i=N);
   If (i=N) and ((A[N] mod 2)=(N mod 2)) then
    WriteLn('0')
   else
    WriteLn('The element number ',i,' breaks the sequence');
  end
 else
  begin
   Repeat
    Inc(i);
   Until ((A[i] mod 2)=(i mod 2)) or (i=N);
   If (i=N) and ((A[N] mod 2)<>(N mod 2)) then
    WriteLn('0')
   else
    WriteLn('The element number ',i,' breaks the sequence');
  end;
 ReadLn;
END.