Ответ:

s:=1;

for i:=a to b do

if (i mod 2 <> 0) then

s:=s*i;

Объяснение:

var i,s,a,b: integer;

begin

readln(a,b);

s:=1;

for i:=a to b do

if (i mod 2 <> 0) then

s:=s*i;

writeln (s);

end.

если интервал большой возможно переполнение переменной s