задан массив состоящий из 10 элементов, определить произведение всех нечётных элементов в массиве

var

mas:array[1 ... 10] of integer;

i, proiz:integer;

begin

proiz:=1;

for i:=1 to 10 do

begin

readln (mas[i]); / / заполняем массив

if (mas[i] mod 20) then proiz:=proiz*mas[i]; / / проверяем: является элемент массива нечт.

end;

writeln (proiz); / / выводим произведение нечетных элеметов массива

end.