Вычислить произведение элементов массива от 1 до 10

var a, b, i, z, x:integer;

q:array [1 ... 20] of integer;

begin

z:=1;

for i:=1 to 20 do

begin

q[i]:=random (18) + 2;

write (q[i],' ');

if (i<11) then z:=z*q[i];

end;

writeln;

write ('Произведение от 1 до 10 = ', z);

end.