Есть неясность. Найти произведение чисел от 1 до 10

program zz1;




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




begin




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




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




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




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




end.