Решите пожалуйста)

В 8 будет 6. Программка подсчитывает количество песен, с количеством гласов больше 25 и выводит это число на экран.

А вот 9ое:

Program Array1;

const

n = 12;

var  

a,b: integer;

d: array[1..n] of integer;

Begin

b:=1;

for a:=1 to n do

 d[a]:= random(10,45);

for a:=1 to n do

if (d[a] mod 5)=0 then

b:=d[a]*b;

writeln('Творение одинаково',' ',b);

end.