Найти сумму четных элементов массива - Pascal (87057)

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

Помогите мне, пожалуйста, написать вот эти задачи: 1. Найти сумму четных, положительных элементов массива. Заранее всем очень благодарна)))

Решение задачи: «Найти сумму четных элементов массива»

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

const n=5;
var
i:integer;
a:array[1..n] of integer;
s:real;
begin
for i:=1 to n do  
readln(a[i]); 
for i:=1 to n do begin
if (a[i]>0) and ((a[i] mod 2)=0) then 
s:=s+a[i];end;
writeln('Сумма: ',s);
end.

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

Объявляются константа n равная 5 и переменные i, a и s.
В цикле for, который выполняется от 1 до 5, считываются значения элементов массива a.
В цикле for, который выполняется от 1 до 5, проверяется условие: число a[i] больше 0 и его остаток от деления на 2 равен 0.
Если условие выполняется, то значение переменной a[i] прибавляется к переменной s.
Выводится сообщение Сумма: и значение переменной s.