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