помогите написать 8 задач по паскаль 1 задача 30 рублей на телефон помогите плиз

пользователь вводит произвольно числа до техпо пока не будет введено число 12. Найти среднее арифметическое введенных чисел ( не равные 12) и их количество (программа через пост условие)

Дано натуральное число n. Вычислить p=(1-1/2)*(1-1/4)*(1*1/6)*....*(1-1/2n)

В целочисленном одномерном массиве из N (N