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

var mas:array[1..10] of integer; i,proiz:integer;beginproiz:=1; for i:=1 to 10 do begin readln (mas[i]);    //заполняем массив if (mas[i] mod 2<>0) then proiz:=proiz*mas[i];    //проверяем: является элемент массива нечт. end;writeln (proiz);           //выводим произведение нечетных элеметов массиваend.