Одномерный массив состоит из 5 элементов. массив заполняется случайными числами из диапазона от 0 до 20. выведите массив на экран в строчку и найдите произведение элементов массива.

//PascalABC.Net 3.2
begin
write ('Первоначальный случайный массив: ');
var a:=arrrandom (5, -100, 100); a.Println;
var x:=1;
for var i:=0 to 4 do x*=a[i];
write ('Произведение элементов массива: ', x);
end.