Запишите на Паскале программу нахождения среднего арифметического двух чисел .

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;