Подсчитать произведение целых нечётных чисел диапазона [a, b]

Program Proizved;

var i, a, b, rez : integer;

begin

write ('введите начало диапазона ') ;

readln (a) ;

write ('введите конец диапазона ') ;

readln (b) ;

rez:=1;

for i:=a to b do

if (i mod 2) 0

then rez:=rez*i;

i:=i+1;

writeln ('Произведение нечетных чисел диапазона = ', rez) ;

end.