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

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

Вычислить сумму элементов массива а, значения которых кратные N, если элементы массива определяются по формуле ai+1=(37*ai+3) mod 64. Значение а1=2; i меняется 1-19.

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

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

if a[i] mod N=0 then

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

В данном коде происходит вычисление значения элемента массива по формуле и суммы значений элементов массива, которые кратны заданному числу N.

Переменная a представляет собой массив значений.
Переменная i является индексом элемента массива.
Функция mod возвращает остаток от деления числа на другое число.
Если элемент массива a[i] кратен числу N, то выполняется следующая строка кода.
Вычисляется значение элемента массива по формуле.
Вычисляется сумма значений элементов массива, которые кратны числу N.
Код завершается.