[Kup9]

Кто может решить по быстрому задачку - я верю вам это легче простово, програму пожалуйста на турбо паскале
Задача:Найти сумму чётных по значению элементов массива, и произведение элементов с нечётными индексами.
Заранее бралогаден, тока побыстрее.