Найти произведение 15 чисел последовательнрсти 3,10,17, (паскаль)

Program n_1;var i:byte;mass:array[1..15] of integer;pr:integer;
beginmass[1]:=3;for i:=2 to 15 dobeginmass[i]:=mass[i-1]+7;Writeln(mass[i]);
end;pr:=mass[1];
for i:=2 to 15 dopr:=abs(pr*mass[i]);
Writeln('Произведение последовательности чисел равна: ',pr);end.