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

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