Найти сумму, произведение и среднее арифметическое элементов массива (А (10))

Program mass;

var s, p, sr:real;

const n=10;

i, k:integer;

a:array[1 ... n] of integer;

begin

p:=1;

for i:=1 to n fo read (a[i]) ;

for k:=1 to n do

begin

s:=s+a[k];

p:=p*a[k];

end;

sr:=s/n;

wtiteln ('Сумма=', s) ;

writeln ('Произведение=', p) ;

wtiteln ('Среднее арифметическое=', sr) ;

end.