Имеется вещественный массив, состоящий из 9 элементов. Найти сумму, среднее арифметическое и произведение всех элементов массива- Pascal(Паскаль)

program try;
const
n=9;
var
mas :array[1..n] of integer;
i,s,p :integer;
a :real;
begin
s:=0; p:=1; a:=0;
writeln('Введите массив');
for i:=1 to n do
begin
readln(mas[i]);
s:=s+mas[i];
p:=p*mas[i];
end;
a:=s/n;
writeln('Сумма ',s);
writeln('Произведение ',p);
writeln('Среднее арифметическое ',a:5:1);
end.