народ, всем привет. помогите пожал.та
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.
это по первой задаче.

подскажите пожалуйста. не идут задачи хоть тресни.
там где массив не знаю как в условии правильно прописать положительные элементы, имеющие четные номера. if a[i]>0 and (a[i] mod 2=0) and not odd a[i]) then
так неверно, а как пока не знаю (IMG:style_emoticons/default/huh.gif)
еще где
s:=s+a[i]; пишет ошибку типа tipe mistake
помогите довести задачу до ума чтоб работала на паскале.
с проверкой