ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО.                     Задача:
Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами. 
                                                                                                 Pascal ABC

const n=9;var a:array [1..n] of integer;i,s,p:integer;beginp:=1;for i:=1 to n do begina[i]:=random(21)-10;if i mod 2=1 then  begin  s:=s+a[i];  p:=p*a[i];  end;write (a[i]:4);end;writeln;writeln ('Сумма=',s);writeln ('произведение=',p);end.