Программа нахождения произведения нечетных чисел для 5 вводимых
Сделать через Паскаль

constN = 5;typeTmas = array [1..N] of longint;varm: Tmas;i, proiz: longint;beginproiz := 1;for i := 1 to N do beginreadln(m[i]);if m[i] mod 2 = 1 thenproiz:=proiz*m[i];end;writeln(proiz);end.пж как лучший