Решить в pascal ( и если можно блок схему ) . найти произведение элементов массива, кратных 3 и 9. размерность массива -10. заполнение массива осуществить случайными числами от 5 до 500.

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