Составить программу, которая по введенному натуральному числу n вычисляет произведение четных чисел из диапазона от 1 до n. (паскаль)

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

program ProductOfEvenNumbers;

var
n, product, i: integer;

begin
writeln('Enter a natural number: ');
readln(n);

product := 1;

for i := 2 to n do
begin
if i mod 2 = 0 then
product := product * i;
end;

writeln('The product of even numbers from 1 to ', n, ' is: ', product);
end.