СРОЧНОО 1. НАйти творенье частей с нечетными номерами(паскаль,массивы)2. отыскать сумму

1.
Входные данные:
В первой строке вводится целое положительное число , не превышающее 100. Во 2-ой строке ввести неотрицательных целых чисел , каждое из которых не превосходит 255.

Выходные данные:
В единственной строке выходного файла вывести творение всех элементов массива с нечётным номером.

Пример ввода:
3
1 2 3

Пример вывода:
3

Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)

Начальный код решения находится в приложении 1.

2.
Входные данные:
В первой строке вводится целое положительное число , не превышающее 100. Во второй строке ввести неотрицательных целых чисел , каждое из которых не превосходит 255.

Выходные данные:
В единственной строке выходного файла вывести сумму всех элементов массива с чётным номером.

Пример ввода:
3
1 2 3

Пример вывода:
2

Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)

Начальный код решения находится в прибавлении 2.