[NIch]

Ну и ну совсем думать не хотят...
Было

// обработка массива
summ := 0;
for i :=1 to 5 do
summ := summ + a[i];

Стало

// обработка массива
Mul := 0;
for i :=1 to 5 do
Mul := Mul * a[i];