Помогите пожалуйста решить задачу в Pascal ( и если можно Блок схему ) . Найти произведение элементов массива, кратных 3 и 9. Размерность массива -10. Заполнение массива осуществить случайными числами от 5 до 500. Срочном пожалуйста ребят !!

const n=10var a:array [1..10] of integer;i:byte; p:integer;beginrandomize;for i:=1 to 10 doa[i]:=random(495)+5;p:=1for i:=1 to 10 doif (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];writeln('Произведение =', p);readln;end.(Блок-схему можно легко составить, исходя из программы)