помогите решить задачу, в паскале плохо разбираюсь Опции

[Hlim]

Дано A[20] нецелых элементов. Найти произведение для i<=Ai<=i^2 и сумму отрицательных элементов, стоящих на чётных позициях.

Помогите пожалуйсто.

[Гость]

посмотрите пожалуйсто так делаю или нет?

const a=20;
i: integer;
p,s: real;
begin
p:=1;
s:=0;
for i:=1 to 20 do
begin
if (a[i]>=i) and (a[i]<=i*i) then
p:=p*a[i];
if (i mod 2 =0) and (a[i]<0) then
s:=s+a[i];
end;
writeln ('произведение=',p:6:2);
writeln ('сумма отриц. эл-тов стоящих на чётных позициях=',s:2);
readln;
end.