Как найти количество и сумму всех честных чисел положительных чисел числового ряда 2,4,3,0,2,5-2,5.

{Как найти количество и сумму всех четных чисел, положительных чисел числового ряда 2,4,3,0,2,5,-2,5}const A:Array[1 ... 8] of integer = (2,4,3,0,2,5,-2,5) ; var i, q, r, n, m:integer; beginwrite ('Числовой ряд ') ; for i:=1 to 8 do beginwrite (A[i]:4) ; if A[i] > 0 then m: = m + 1; if (A[i] mod 2) = 0 then n: = n + 1; if ((A[i] mod 2) = 0) and (A[i] > 0) then r: = r + 1; end; writeln; writeln ('четных чисел ', n) ; writeln ('положительных чисел ', m) ; writeln ('положительных и четных чисел ', r) ; end.