Найти все нечётные делители заданного числа.

program even_factors;var  i, n: integer;begin  write('Число: ');  readln(n);  i := 1;  while (i * i) <= n do    begin      if (n mod i = 0) and (i mod 2 = 1) then        begin          write(i, ' ');          if (n div i) mod 2 = 1 then            write(n div i, ' ');        end;      i := i + 1;    end;end.