program algorithm;
var A: array [1..100] of integer; n, i, b: integer;
begin
write('Введите кол-во элементов в массиве: ');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
  readln(A[i]);
b:=0;
for i:=1 to n do
  begin
  if (A[i] mod 2 = 1) then
    begin
    b:=b+1;
    if b = 2 then
      begin
      writeln('Второй нечётный элемент массива = ', A[i]);
      writeln('Его номер = ', i);
      end;
    end;
  end;
end.