Вывести на экран все нечётные цифры числа и найти их произведение

var
  k, n: integer;
  p: real;
 
begin
  write('Введите число: ');
  readln(n);
  p := 1;
  k := 0;
  while n > 0 do
  begin
    if not (n mod 10 mod 2 = 0) then 
    begin
      write(n mod 10, ' ');
      p := p * (n mod 10);      
      inc(k);
    end;
    n := n div 10;
  end;
  writeln;
  if k <> 0 then
    writeln(p)
  else
    writeln('Нет таких чисел.');
end.

var n,c,k:integer;
begin
write('n=');
readln(n);
writeln('Нечетные цифры числа');
k:=0;
repeat
 c:=n mod 10;
 if odd(c) then
  begin
   k:=1;
   write(c,' ');
  end;
 n:=n div 10;
until n=0;
if k=0 then write('Таких цифр нет')
end.

if not (n mod 10 mod 2 = 0) then

if c mod 2<>0 then

var n,c,k,p:integer;
begin
write('n=');
readln(n);
writeln('Нечетные цифры числа');
k:=0;
p:=1;
repeat
 c:=n mod 10;
 if c mod 2 <> 0 then
  begin
   k:=1;
   write(c,' ');
   p:=p*c;
  end;
 n:=n div 10;
until n=0;
if k=0 then write('Таких цифр нет')
else
 begin
  writeln;
  write('Произведение этих цифр=',p);
 end;
end.