Объявить одномерный массив на 12 элементов целого типа , найти среднее арифметическое данных элементов,заменить пятый элемент массива полученным результатом

uses crt; type massiv = array [1..12] of integer; var i,n,summa : integer; srednee : real; A : massiv; begin clrscr; write('Введите кол-во элементов : ');readln(n); summa := 0 ; for i:=1 to n do begin write('Введите ',i, ' элемент : '); readln(A[i]); summa := summa + A[i]; end; srednee := summa / n; A[5] = srednee; readln; end.