Напишите программу, которая считает произведенине нечетных чисел на заданном промежутке (паскаль)

Program;
var a,i,n,p:integer;
Begin
p:=1;
read(n);
for i:=1 to n do
begin
read(a);
if a mod 2<>0 then
p:=p*a;
end;
writeln(p);
End.