Блинова Анастасия program zz1; var i, s:integer; // задаем переменные целого типа begin s:=1; // задаем начальное значение для произведения for i:=7 to 12 do // организуем цикл, в котором переберем все числа от семи до двенадцати s:=s * i; // получаем произведение, умножив очередное число на произведение writeln(' произведение последовательных натуральных чисел от 7 до 12 = ', s); // выводим ответ end.
