Дан массив целых чисел из n элементов. найти сумму четных и произведение нечётных элементов массива.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Введите элементы массива:',n);
  var s:=0;
  var p:=1;
  for var i:=0 to n-1 do
    if Odd(i) then s+=a[i] else p*=a[i];
  Writeln('sum=',s,', prod=',p)
end.

Тестовое решение:
n= 5
Введите элементы массива: 18 39 -17 6 12
sum=45, prod=-3672

Var n, i: Integer;
      sum, pr: LongInt;
      a: array[1..10000] of Integer;
Begin
   sum := 0; pr := 1;
   readln(n);
   for i := 1 to n do begin
      read(a[i]);
      if a[i] mod 2=0
      then sum := sum + a[i]
      else pr := pr*a[i];
   end;
   writeln(sum,' ',pr);
End.

ответ: 1111
---
Решение
Для начала определим значение переменных
А=1 (высказывание истинно)
B=1  (высказывание истинно)
C=1  (высказывание истинно)
D=0  (высказывание ложно)
E=0  (высказывание ложно)

Перейдем к выражениям.
¬  -  логическое  отрицание (не)
˅ - логическое сложение (или)
˄ - логическое умножение (и)

Как это выглядит в формулах привычными для нас символами (кроме "не". отрицание остается), замени сразу же переменные известными нам значениями:
1. A˄B˅¬C = A*B+ ¬C =1*1+ ¬1=1*1+0 = 1+0 = 1
2. A˄D˅¬E = A*D+ ¬E = 1*0+ ¬0=1*0+1 = 0+1 = 1
3. A˄B˅¬D = A*B+ ¬D = 1*1+ ¬0=1*1+1 = 1+1 = 1 (у нас же логическое выражение)
4. D˄E˅A = D*E+A = 0*0+1 = 0+1 = 1

Таким образом, получаем 1111

Означает примерно следующее:
После нажатия на кнопку Button1 будет проверено содержимое элементов от edit1 до edit6. Если хотя бы в одном ничего не написано, то будет выведено сообщение 'Пусті значення недопустимі' и работа программы закончится. Если все они заполнены, то
в эт-т edit7 запишется произведение чисел, нах-ся в edit1 и edit2,
в эт-т edit10 запишется число, равное , числу из edit7 /100 * 13,
в эт-т edit13 запишется число, равное разности чисел из edit7 и edit10,
в эт-т edit8 запишется произведение чисел, нах-ся в edit2 и edit5,
в эт-т edit11 запишется число, равное , числу из edit8 /100 * 13,
в эт-т edit14 запишется число, равное разности чисел из edit8 и edit11,
в эт-т edit9 запишется произведение чисел, нах-ся в edit3 и edit6,
в эт-т edit12 запишется число, равное , числу из edit9 /100 * 13,
в эт-т edit15 запишется число, равное разности чисел из edit9 и edit12,
в эт-т edit16 запишется число, равное сумме чисел из edit13, edit14 и edit15
Надеюсь, ничего не перепутал, а то прям в глазах зарябило от этого текста)))