Var a: array of integer;
n,value, minind: integer;
 
begin
   write('Введите n: ');
   readln(n);
   a := new integer[n];
 
  write('Введите числа: ');
  for var i:=0 to a.Length-1 do
    read(a[i] );
   
  write('Введите заданное значение: ');
  read(value);

  write('Номер элемента с заданным значением: ');
  a[0]:=value;
  minind := 1;
  for var i:=0 to a.Length-1 do
    if a[i]=value then
    begin
        minind := i+1;
    end;
  writeln(minind);
end.