Рассчитать и вывести произведение чисел от 1 до 30

program zz1;

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

begin

s:=1;

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

s:=s * i;

writeln (' произведение чисел от 1 до 30 = ', s); / / выводим ответ на экран

end.