Найти сумму положительных чисел используя оператор For - Turbo Pascal

Добрый день. Помогите решить задание. Используя оператор цикла For, найти сумму положительных чисел, кратных 4. Очень буду благодарен.

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

s:=0;
for i:=1 to n do
if (a[i]>0)and(a[i] mod 4=0) then s:=s+a[i];

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

В данном коде выполняется следующая последовательность действий:

Переменная s инициализируется значением 0.
Запускается цикл for, который выполняется от 1 до n (предполагая, что n больше 0).
Внутри цикла проверяется условие: a[i]>0 и a[i] mod 4=0. Если оба условия истинны, то выполняется следующее действие.
Значение переменной a[i] добавляется к переменной s.
После выполнения цикла, значение переменной s будет содержать сумму всех положительных чисел, удовлетворяющих условию a[i]>0 и a[i] mod 4=0.