Написание программу на языке паскаль. Написать программу для нахождения произведения натуральных чисел от 1 до 100(цикл "для")

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

program MultiplyNumbers;

var
i, result: integer;

begin
result := 1;

for i := 1 to 100 do
begin
result := result * i;
end;

writeln('The product of natural numbers from 1 to 100 is: ', result);

readln;
end.