народ, всем привет. помогите пожал.та
1. дан одномерный массив, состоящий из n элементов. Вычислить сумму положительных элементов, имеющих четные номера!!!. (n- целое, не больше 50)

program kr3;
var a:array [1..10] of real;
s,n,i:integer;
begin writeln('n'); readln(n);
for i;=1 to n do read (a[i]);
s:=0;
for i:=1 to n do
if a[i]>0 далее не заню как прописать четные номера пишу and (a[i] mod 2=0) and (not odd a[i]) then но это неверно паскаль пишет мне ошибки
s:=s+a[i];
writeln('s=',s:4:2);
readln;
end.
это по первой задаче.