Question

решить задачу по информатике​

Answer 1

var

a,mn:integer;

begin

mn:=1;

while a<>-1 do begin

readln(a);

if a mod 2 =1 then

mn:=mn*a;

end;

writeln(mn);

end.