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

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

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;

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

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.

не работает, помогите найти ошибки.

Она у тебя не только НЕ должна работать, но И компилироваться тоже.

Массив не описан:

const
   n=20;
var
  ...
  a : array [1..n] of Real;

Заполнения массива нет:

for i:=1 to n do
  read(a[i]);