Ввести с клавиатуры массив из 5 элементов,найти сумму и творенье элементов

необходимо отыскать и среднее арифметическое этих чисел?

нужно найти и среднее арифметическое этих чисел?

Program a;
var sum,n,ymn,sred: real;
i: integer;
mas : array[1..5] of integer; 
begin
  sum:=0;
  ymn:=1;
  writeln('Укажите 5 чисел');
    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.