Задание недоопределено, непонятно с 1 или с любого числа вычислять, непонятно, последовательных чисел или произвольных.
Я предложу решение следующей задачи
Составить программу вычисления произведения ПОСЛЕДОВАТЕЛЬНЫХ чисел натурального рада, начиная с N1, заканчивая N2. N1 и N2 вводятся с клавиатуры.
Решение будет такое
П=1; // здесь будем накапливать наше произведение
Ввод(N1, N2);
Если N2
Сообщить("Неверные исходные данные!");
Возврат;
КонецЕсли;
Для ц=N1 по N2 цикл
П=П*ц;
КонецЦикла;
Сообщить("Произведение от "+N1+" до "+N2+" равно "+П);
Всё!
Ты не указал язык, которым владеешь, поэтому код написал на псевдоязыке, который ты без проблем переведёшь на известный тебе.
Успехов! В следующий раз более корректно и внимательно формулируй условие задачи.