составьте программу,которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями

var a:array [1..10] of integer;i,n:integer;beginn:=1;randomize;for i:=1 to 10 doa[i]:=random(10);for i:=1 to 10 dowrite(a[i],' ');writeln;for i:=1 to 10 dobeginif a[i] mod 2 <>0then n:=n*a[i]end;write(n);end.