Как найти количество и сумму всех честных чисел положительных чисел числового ряда 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.