Умножить на 3 все элементы во второй половине массива - Free Pascal

Формулировка задачи:

Умножить на 3 все элементы во второй половине массива A (считать, что в массиве чётное число элементов). Найти среднее арифметическое всех элементов массива A.

Решение задачи: «Умножить на 3 все элементы во второй половине массива»

Листинг программы

Var
  x: Array [1..100] of Integer;
  i,n,s: Integer;
BEGIN
Repeat
 Write('Введите четное количество: ');
 Readln(n);
until n mod 2=0;
Writeln('Исходный массив:');
For i:=1 to n do
begin
  x[i]:=Random(100);
  Write(x[i],' ');
end;
Writeln;
Writeln('Полученный массив:');
For i:=1 to n do
begin
  If i>n div 2 Then
  x[i]:=x[i]*3;
  Write(x[i],' ');
  s:=s+x[i];
end;
Writeln;
Writeln('Ср. арифм. = ',s/n:2:2);
Readln
END.

Объяснение кода листинга программы

Переменная x объявлена как массив из 100 целых чисел.
Переменные i, n и s объявлены как целые числа.
Цикл Repeat используется для получения от пользователя ввода.
Пользователю предлагается ввести четное количество элементов для работы.
Введенное количество элементов сохраняется в переменной n.
В цикле For выводятся элементы исходного массива.
В каждой итерации цикла в массиве x генерируется случайное число от 1 до 100.
Сгенерированное число выводится на экран в каждой итерации цикла.
После окончания цикла выводится символ .
В цикле For обрабатываются элементы полученного массива.
Если индекс элемента больше половины количества элементов, то элемент умножается на 3.
Выводится обработанный элемент массива.
К переменной s прибавляется значение обработанного элемента массива.
После окончания цикла выводится символ .
Среднее арифметическое всех элементов массива вычисляется как s деленное на n.
Среднее арифметическое выводится на экран.
Цикл Readln ожидает ввода с клавиатуры.
Ввод может быть любым, так как в программе нет проверки на тип вводимых данных.
Ввод с клавиатуры сохраняется в переменной s.
Программа завершается.