решите номер 5,50 баллов​

const m=100;
var
a: array[1..m] of integer;
p,sr,i:integer;
sum,n: real; {sum – сумма всех чисел, р – произведение, sr – среднее арифмитическое, n – количество элементов массива}
begin
readln(n);
for i:=1 to n do readln(a[i]);
sum:=0; p:=1;
for i:=1 to n do begin
sum:=a[i]+sum;
p:=p*a[i];
end;
sr:=sum/n;
writeln(p, ' ', sum, ' ', sr);
end.