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

program zz1;

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

begin

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

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

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

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

end.