Дан массив из 8 элементов . определить а) сумму всех элементов массива ; б) произведение всех элементов массива ; в) среднее арифметическое всех элементов массива

Var a: array [1..8] of integer; s,p,i: integer; sr: real; begin s: =0; p: =1; write ('заполни массив'); for i: =1 to 8 do begin readln(a[i]); s: =s+a[i]; p: =p*a[i]; end; sr: =s/8; writeln ('s=',s); writeln ('p=',p); writeln ('sr=',sr); end.