Program Array18;
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 := 1 to n - 1 do
    if a[i] < a[10] then
    begin
      Writeln(a[i]);
      isFind := true;
      break;
    end;
  if not(isFind) then WriteLn(0);
  ReadLn;
end.