program CalculateZ;
var
n, i: integer;
z: longint;
begin
write${}^{\prime }Enteranaturalnumber{:}^{\prime }$;
readln$n$;
z := 1;
for i := 1 to n do
begin
z := z * $3\ast i-1$;
end;
writeln${}^{\prime }z{=}^{\prime },z$;
end.

Эта программа принимает на вход натуральное число n, затем вычисляет значение z = 2*5*8...*$3n-1$ и выводит результат.