Программа нахождения произведения всех элементов b(6)

Ничего сложного, простейшее задание
Урывок кода*
sum := sum + mas[i];    
pr := pr * mas[i];