Составьте программу, которая: • запрашивает число n • вычисляет произведение чисел от 1 до n • выводит результат

Пример программы (Pascal):

program Factorial;
var
  n, i, result: integer;
begin
  writeln('Введите число n:');
  readln(n);

  result := 1; // Инициализируем результат единицей

  // Вычисляем произведение чисел от 1 до n
  for i := 1 to n do
  begin
    result := result * i;
  end;

  writeln('Произведение чисел от 1 до ', n, ' равно: ', result);
end.

Пример работы программы:

Ответ: Программа вычисляет факториал числа n.