Одномерные массивы. Найти произведение элементов, кратных 3

Program help;
var i,n:integer; a:array[1..1000]of word; k:real; {если не работает word ставь shortint или integer}
begin
writeln('Введите размерность массива');
read(n);
k:=1;
for i:=1 to n do
begin
a[i]:=random(-28,27);
if (a[i] mod 3 = 0)and(a[i]<>0) then k:=k*a[i];
end;
writeln('произведение равно ',k);
end.

uses crt;
var a:array [1..100] of integer;
    i,sum,k,n: integer;
begin
write('N=');
readln(n);
sum:=0; K:=0;
for i:=1 to n do
    begin
    write('A[',i,']=');
    readln(a[i]);
    if i mod 2=1 then
       begin
       inc(sum,a[i]);
       inc(k);
       end;
    end;
writeln('Ср.ар. нечетных ',sum/k:7:2);
end.

uses crt;
 
var a,b:array [1..100] of integer;
n,i,x:integer;
 
begin
   Write('Размер массива: ');readln(n);
   For i:=1 to n do
     begin
     Write('a[',i,'] = ');readln(a[i]);
     if a[i]>0 then begin inc(x); b[x]:=a[i]; end;
     end;
   Writeln('Исходный массив: ');
   For i:=1 to n do
     write(a[i],'  ');
   Writeln;
   Writeln('Новый массив: ');
   For i:=1 to x do
    write(b[i],'  ');
end.

uses crt;
 
var a:array [1..100] of integer;
n,i,x,sum,p:integer;
 
begin
   Write('Размер массива: ');readln(n);
   p:=1;
   For i:=1 to n do
     begin
     Write('a[',i,'] = ');readln(a[i]);
     if not odd(i) then sum:=sum+a[i];
     if a[i]<0 then p:=p*a[i];
     if odd(a[i]) then inc(x);
     end;
   Writeln;
   Writeln('Сумма с четными номерами - ',sum);
   Writeln('Произведение отрицательных - ',p);
   Writeln('Кол-во нечетных элементов - ',x);
end.