Найти произведение всех нечетных чисел от числа "а" до числа "b"

Program n1;
var a,b,i: integer;
p: real;
begin
p:=1;
readln(a,b);
for i:=a to b do if i mod 2<>0 then p:=p*i;
write(p);
end.