Помогите решить. Массивы Паскаль
Имеется массив А из N произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Вычислить сумму всех четных положительных чисел. например, если А={2,4,–3,0,5,1,6}, результат: 2+4+6=12

program qq;var A:array[1..10] of integer;i,s:integer;beginfor i:=1 to 10 do beginwriteln('Введите ',i,' элемент');readln(A[i]);if (A[i] mod 2 = 0) and (A[i] >= 0) thens:=s+A[i];end;writeln('Результат: ',s);end.