Вычисление суммы элементов массива а, значения которых кратны N - Turbo Pascal

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

Составить программу вычисления суммы элементов массива а, значения которых кратные N с использованием файлов для ввода-вывода данных и выполнить ее в среде системы программирования Turbo Pascal 6.0

Решение задачи: «Вычисление суммы элементов массива а, значения которых кратны N»

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

sum:=0;
readln(n);
for i:=1 to k do
 if a[i] mod n = 0 then
  sum:=sum+a[i];

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

Переменная sum инициализируется значением 0.
Пользователю предлагается ввести значение переменной n.
В цикле for переменная i принимает значения от 1 до k.
Внутри цикла проверяется условие: если a[i] кратно n, то это значение добавляется к переменной sum.
После завершения цикла переменная sum будет содержать сумму элементов массива a, значения которых кратны n.