Дано натуральное n.Вычислить y=1*3*5x...x(2n-1).Программа в паскаль абс.

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

program CalculateY;
var
n, i: integer;
y: longint;
begin
y := 1;
write('Введите натуральное число n: ');
readln(n);
for i := 1 to n do
begin
y := y * (2 * i - 1);
end;
writeln('y = ', y);
end.

Программа вычисляет значение переменной y по формуле y = 135...(2n-1), где n - введенное пользователем натуральное число.