Составить программу в Паскаль АВС

Найти среднее арифметическое элементов массива. Найти сумму элементов массива, которые меньше среднего арифметического.

Const

maxN = 100; / / Максимальное кол-во элементов массива

var

n, i: longint;

middle, sum, sum2: real; / / Может быть нецелым числом

a: array[1 ... maxN] of real;

begin

write ('Введите количество элементов массива: ') ;

readln (n) ;

sum : = 0; / / Считаем сумму всех элементов, чтобы найти среднее арифметическое

write ('Введите элементы массива через пробел: ') ;

for i : = 1 to n do begin

read (a[i]) ;

sum : = sum + a[i];

end;

middle : = sum / n; / / Вычисляем среднее арифметическое

writeln ('Среднее арифметическое = ', middle) ;

sum2 : = 0; / / Считаем сумму элеметов, меньших среднего арифметического

for i : = 1 to n do

if a[i] < middle then

sum2 : = sum2 + a[i];

writeln ('Сумма элементов, меньших среднего арифметического = ', sum2) ;

end.