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

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.