Найти произведение натуральных чисел от F до 11 (F<11)
Составить программу.
Язык Pascal

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

program Multiplication;

var
i, F, result: integer;

begin
write('Enter a number F (F < 11): ');
readln(F);

// Initialize result with F
result := F;

// Calculate the factorial of numbers from F+1 to 11
for i := F+1 to 11 do
begin
result := result * i;
end;

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

end.