var
  i, iNum: integer;
  a: array [1..10] of integer;
begin
  for i := 1 to 10 do
  begin
    a[i] := random(100500);
    writeln(a[i]:7);
  end;
  write('>');
  readln(iNum);
  for i := 1 to 10 do
    if (a[i] = iNum) then
    begin
      writeln(i);
      exit
    end;
  writeln('Не существует');
end.