Дан массив b, в котором содержится 10 элементов целого типа. найти: а) сумму элементов этого массива б)произведение элементов этого массива в) среднее арифметическое этого массива нужен алгоритм паскаль например: program summa; var b: array (1..10) of integer; и т.д.

Const
n=10;
var B:array [1..n] of integer;
i,s,cu,k:integer;
cp:real;
begin
cu:=1;
writeln('Введите элементы массива');
for i:=1 to n do begin
b[i]:=random(21)-10;
writeln('B[',i,']=',b[i]);
s:=s+b[i];
cu:=cu*b[i];
inc(k);
end;
cp:=s/k;
writeln('Среднее арифметическое равно ',cp,', Произведение равно ',cu,', сумма равна ',s);
end.