Project1.pas

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  
var
  A: array of Integer; // массив целых чисел
  N: Integer; // Количество элементов в массиве
  i: Integer; // переменная счётчик
  Result: Integer; // Результат

begin
  Write('Введите количество элементов в массиве: ');
  ReadLn(N); // читаем число внесёное пользователем и вносим его в переменую N
  if N = 0 then // Должен быть хоть один элемент
    Exit; // Выходим из программы
  SetLength(A, N); // Устанавливаем длину массива (выделяем память для него)
  // В цикле просим пользователя ввести все элементы массива
  for i := 0 to N - 1 do
  begin
    Write('Введите ', i, ' элемент в массиве: ');
    ReadLn(A[i]);
  end;
  Result := 1;
  // Проходимся циклом по чётным эелементам массива
  i := 0; // Индекс эелемента
  while i <= N do
  begin
    if (A[i] >= 0) and ((A[i] mod 2) > 0) then
      Result := Result * A[i];
    i := i + 2; // увеличиваем его сразу на два чтобы попасть на чётный элемент
  end;
  WriteLn('Результат: ', Result);
  ReadLn; // ожидаем нажатия любой клавиши
end.