Задан массив состоящий из 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 2<>0) then proiz:=proiz*mas[i];    //проверяем: является элемент массива нечт. end; writeln (proiz);           //выводим произведение нечетных элеметов массива end.