//предположим что задан массив S с последним элементом S[max]

summ:=0;

for i:=0 to max do

summ:=summ+S[i];

writeln(summ);

//так-же предположим что задан массив P с последним эл-том P[max]

proiz:=1;

for i:=0 to max do

proiz:=proiz*P[i];

writeln(proiz);