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

Const
N = 5;

type
Tmas = array [1..N] of longint;

var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i] mod 2 = 1 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.

как лучший