программа на Паскале

[Mandarinka_Christy]

нужно наити произведение всех нечетных целых чисел х таких что а<=x<=b

[GetMax]

Readln(a,b);
proizv:=1;
for i:=a to b do
   if odd(i) then proizv:=proizv*i;
Writeln(proizv)

[Mandarinka_Christy]

program qq;
var a, b, x, p:integer;
begin
writeln('vvedite 4islo a');
readln(a);
writeln('vvedite 4islo b');
readln(b);
for x:=a to b do
begin
if x mod 2=1 then
begin
p:=p*x;
write(x, ' ');
end;

end;
write(p);
end.

что тут не так? почему пишет что произведение нечетных равно 0???

[VIK_aka_TOR]

Сообщение от Mandarinka_Christy

program qq;
var a, b, x, p:integer;
begin
writeln('vvedite 4islo a');
readln(a);
writeln('vvedite 4islo b');
readln(b);
for x:=a to b do
begin
if x mod 2=1 then
begin
p:=p*x;
write(x, ' ');
end;

end;
write(p);
end.

что тут не так? почему пишет что произведение нечетных равно 0???

p перед умножением приравняйте к 1... иначе умножаете всю свою последовательность поочередно на 0... а 0 * на_число = 0 ))
p:=1; пропишите после первого бегин но перед началом цикла...

[Mandarinka_Christy]

большое спасибо!:*