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

program mass;var s,p,sr:real;const n=10;i,k:integer;a:array[1..n] of integer;beginp:=1;for i:=1 to n fo read(a[i]);for k:=1 to n dobegins:=s+a[k];p:=p*a[k];end;sr:=s/n;wtiteln('Сумма=',s);writeln('Произведение=',p);wtiteln('Среднее арифметическое=',sr);end.