Помогите написать программу пожалуйста. Дан одномерный массив… составить программу, которая находит произведение элементов, которые кратны 3 и не кратны 9

Var a:array [1..10] of integer;I,s:integer;beginrandomize;s:=1;for I:=1 to 10 dobegina[I]:=random(100);if (a[I] mod 3 =0)and(a[I] mod 9<>0) thens:=s*a[I];write(a[I]:4);end;writeln;writeln(s);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.