Ввести с клавиатуры массив из 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.