Дано натуральное число n (где n больше или равно 1). Вычислить: z=2*5*8...*(3n-1). Нужно написать программу в Паскале.

Предыдущий
вопрос Следующий
вопрос

program CalculateZ;
var
n, i: integer;
z: longint;
begin
write('Enter a natural number: ');
readln(n);
z := 1;
for i := 1 to n do
begin
z := z * (3 * i - 1);
end;
writeln('z = ', z);
end.

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