Паскаль! вычислить произведение натуральных чисел, начиная от 12 до 18

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

program CalculateProduct;

var
i, product: integer;

begin
product := 1;

for i := 12 to 18 do
begin
product := product * i;
end;

writeln('The product of natural numbers from 12 to 18 is: ', product);

end.