Найти произведение последовательных натуральных чисел от 7 до 12.

program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

s:=1; / / задаем начальное значение для произведения

for i:=7 to 12 do / / организуем цикл, в котором переберем все числа от семи до двенадцати

s:=s * i; / / получаем произведение, умножив очередное число на произведение

writeln (' произведение последовательных натуральных чисел от 7 до 12 = ', s); / / выводим ответ

end.