Program PascalGuru;
 
var i,k:integer;
    p:real; {REAL т.к. произведение будет большим}
 
begin
i:=4;
p:=1;
k:=0;
 
repeat
inc(i);
 
  if odd(i) then
   begin
   writeln(i);
   inc(k);
   p:=p*i;
   end;
 
until k=9;
 
writeln;
writeln('Proizvedenie=  ',p:0:0);
 
readln;
end.