Ввести с клавиатуры массив из 5 элементов,найти сумму и произведение элементов этого массива. пример: введите пять чисел : 4,15,3,10,14 среднее арифметическое: 9,200

Program a;
var sum,n,ymn,sred: real;
i: integer;
mas : array[1..5] of integer; 
begin
  sum:=0;
  ymn:=1;
  writeln('Укажите пять чисел');
    for i:=1 to 5 do
      begin
          read (mas[i]); sum:=mas[i]+sum;
          ymn:=mas[i]*ymn;
          sred:=sum/5;
      end;
writeln('Сумма элементов = ',sum,'  Произведение элементов = ',ymn,' Среднее арифметическое = ',sred);
end.