Информатика( 9 класс) помогите безотлагательно, пожалуйста. Даю 15б1.отыскать произведение частей

var a: array[0..100] of Integer;n,i,sum: Integer;beginsum:=1;writeln('Введите кол-во чисел');readln(n);dec(n);for i:=0 to n dobegina[i]:=random(100);writeln('Число: ',a[i]);end;for i:=0 to n dobeginif odd(a[i])=false then sum:=sum*a[i];end;writeln('Творенье: ',sum);end.

Отметь как превосходнейший пж

1. var a: array[1..100] of Integer ;
i,n,p: integer;
begin
p:=1;
Writeln('Введите количество частей в массиве');
Readln(n);
Writeln('Масив');
for i:=1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
if a[i] mod 2 = 0 then p:=p*a[i];
end;
Writeln;
Writeln('Творение четных частей массива = ', p);
end.


2. var a: array[1..10] of Integer ;
i,c,sum,n: integer;
begin
Writeln('Введите число');
Readln(c);
for i:=1 to 10 do
begin
Writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i] gt; c then
begin
sum:=sum+a[i];
n:=n+1;
end;
end;
Writeln('Среднее арифмитическое частей массива которые превосходят ', c, ' = ',sum/n);
end.