пожалуйста помогите... очень срочно... защищаю четверть... плиз. Дан целочисленный массив , подсчитать
произведение элементов кратных 3, порядковые номера которых кратны 5

Спасибо огромнейшее...просто от души благодарю)

ага

constn=20;vara:array[1..n]of integer;i:integer;p:real;beginp:=1;    for i:=1 to n do        readln (a[i]);writeln;    for i:=1 to n do      begin       write (a[i]:4);           if (a[i] mod 3=0)and(i mod 5=0)then               p:=p*a[i];      end;writeln;writeln('P:  ',p);end.