Написать программку, в которой массив из 20 частей заполняется случайными числами

program zz1;

const n = 20;  // задаем количество частей в массиве

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

m:array [1..n] of integer;

begin

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

for i:=1 to n do       // получаем числа случайным образом и записываем их в массив

m[i]:=random(4)+1;

for i:=1 to n do       // выводим приобретенный массив на экран

write(m[i], );

writeln;             // перебегаем на новейшую строку для вывода ответа

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

  k:=k * m[i]; //  умножаем на творение

write( творение частей = , k);   // выводим ответ

end.