На языке паскаль найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)

Циклик для нахождения(часть программы):
a:=0; p:=1;
for n:=1 to 12 do 
begin
a:=a+1/((3*n-2)*(3*n+1));
p:=p*a;
end;