Program Array19;
const
  n = 10;
var
  a: array[1..n] of integer;
  i: integer;
  isFind: boolean;
begin
  Writeln('Введите ', n, ' чисел:');
  for i := 1 to n do
    Read(a[i]);
  ReadLn;
  isFind := false; 
  for i := n - 1 downto 2 do
    if (a[i] < a[10]) and (a[i] > a[1]) then
    begin
      Writeln(a[i]);
      isFind := true;
      break;
    end;
  if not(isFind) then WriteLn(0);
  ReadLn;
end.