Решить в Pascal:

Найти произведение, сомножители которого представлены каждым третьим членом: X1, X4, X7, и т. д. - заданного массива X1, X2, ..., Xn.

Сори сглупила, a1:=a1+a[j]; замени на a1:=a1*a[j];

Все не нужно, сама исправила)

var a: array [1..200] of integer;i, j, q, a1: integer;beginWriteln('Kakoi dlini massiv?');Readln(q);for i:=1 to q doReadln(a[i]);a1:=a[1];j:=1;while j<=q dobeginj:=j+3;a1:=a1*a[j];end;Writeln(a1);end.