Написать программу для вычисления произведения 30 случайных натуральных чисел.

program zz1;

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

begin

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

for i:=1 to 30 do / / организуем цикл на 30 повторений

begin

a:=random (5) + 1; / / получаем натуральное число случайным образом

s:=s * a; / / вычисляем произведение домножая очередное натуральное число

end;

writeln (' Полученное произведение = ', s); / / выводим ответ

end.