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

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.