Подсчитать сумму положительных элементов массива,кратных 3 - Pascal ABC

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

Задан массив из 12 целых чисел.Подсчитать сумму положительных элементов массива,кратных 3.

Решение задачи: «Подсчитать сумму положительных элементов массива,кратных 3»

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

const N=12;
var a:array[1..N] of integer; i,b:integer;
begin
b:=0;
//заполнение массива
for i:=1 to N do begin
writeln('введите ',i,'-ый элемент');
readln(a[i]);
end;
//обработка массива
for i:=1 to N do
if (a[i]>=0) and (a[i] mod 3 = 0) then b:=b+a[i];
writeln('ответ - ',b);
end.

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

const N=12; - объявляется константа N равная 12, будет использоваться для определения размера массива
var a:array[1..N] of integer; i,b:integer; - объявляются переменные a, i, b типа integer и массив a размером N
b:=0; - инициализируется переменная b значением 0
//заполнение массива for i:=1 to N do begin writeln('введите ',i,'-ый элемент'); readln(a[i]); end; - цикл for заполняет массив a значениями, введенными пользователем
//обработка массива for i:=1 to N do if (a[i]>=0) and (a[i] mod 3 = 0) then b:=b+a[i]; - цикл for обрабатывает массив a
writeln('ответ - ',b); - выводится ответ
end.; - закрывается блок кода