Задан массив состоящий из 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.