Найти произведение чисел от 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.