Обработка элементов массива - Pascal ABC

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

Ввести одномерный массив из элементов. Каждый четный элемент в массиве заменить результатом его целочисленного деления на 5. Массив вывести до и после преобразования.

Решение задачи: «Обработка элементов массива»

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

var a:array[1..100] of integer;
    i, n: integer;
begin
  read(n);
  for i := 1 to n do begin
    write('a[', i, '] = ');
    read(a[i]);
  end;
  for i := 1 to n do begin
    write(a[i], ' ');
    if a[i] mod 2 = 0 then a[i] := a[i] div 5;
  end;
  writeln;
  for i := 1 to n do write(a[i], ' ');
end.

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

Введен массив a типа integer размером 100
Введены две переменные i и n типа integer
Введена последовательность чтения чисел n в цикле от 1 до n
В каждой итерации цикла выводится номер элемента массива a и затем считывается его значение
После завершения цикла считывания значений массива a, начинается цикл обработки элементов массива a
В каждой итерации цикла выводится значение элемента массива a
Если значение элемента массива a делится на 2 без остатка, то оно делится на 5 и записывается обратно в массив a
После завершения цикла обработки элементов массива a, выводится символ новой строки
В конце программы выводится содержимое массива a