var
  a, b: real;

begin
  readln(a, b); //Берём 2 числа
  a := (a + b) / 2; //находим ответ
  writeln(a); //Выводим ответ
end.

Пишу частями, пробелы восполни сам

type   massiv = array [1..1000] of integer;
var   
i,n,summa : integer;   
srednee : real;   A : massiv;

write('Введите кол-во элементов : ');
readln(n); summa := 0; // начальное значение

for i:=1 to n do    begin        write('Введите ',i, ' элемент: '); readln(A[i]);        summa := summa + A[i];    end;