Паскаль! вычислить произведение натуральных чисел, начиная от 12 до 18

program v_17_9_7;

var p: integer;

begin

p:=1; //переменная для хранения результата произведения

for i:integer: = 12 to 18 do p : = p * i;

//в цикле начальное значение переменной p

//поочередно умножаем на i, которое меняется от 12 до 18

writeln ('12 * 13 * 14 * 15 * 16 * 17 = ', p)

end.