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

Var   a,n,i:integer;Beginn:=1;  For i:= 1 to 30 do Begin    a:=random(5)+1;    n:=n*a;  End;  Writeln('Произведение 30-ти случайных чисел (в диапазоне от 1 до 5) равна ',n);End.