Составить программу заполнения массива из 10 элементов случайными числами и…

Var s,i: integer; r: array [1… 10] of integer; begins: =1; {Чтобы произведение не было равно 0, т.к. 0*на что то будет 0}randomize; for i: =1 to 10 do begin r[i]: =random (20); s: =s*r[i]; end; {Заполняем массив и сразу получаем во время заполнения произведение эелементов}writeln (s); [Выводим значения произведения эелементов}end.