Дан массив B, в котором содержится 10 элементов целого типа. Найти: А) сумму элементов этого массива Б)произведение элементов

Program summa;

var

sum,pr,k,i: integer;

A: array[1..10] of integer;

begin

sum:=0;

pr:=1;

k:=0;

for i:=1 to 10 do

begin

sum:=sum+A[i];

pr:=pr*A[i];

k:=k+1;

end;

writeln(\'сумма членов =\',sum,\'; произведение =\',pr,\'; среднее арифметическое =\',pr/k);

end.