Составьте программу которая заполняет массив b1 ... 8 случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количеством элементов с четными значениями

помогите хоть каким решением

Program n_1;

var b:array[1 ... 8] of integer;

i, n, p, f:integer;

begin

p:=1;

f:=1;

writeln ('Введите кол-во элементов') ;

readln (n) ;

for i:=1 to n do

begin

b[i]:=random (10) + 1;

write (b[i],' ') ;

If i mod 2=0 then p:=p*b[i];

If i mod 20 then f:=f*b[i];

end;

writeln ('p=', p) ;

writeln ('f=', f) ;

end.