Дано натуральное число. определить количество его нечетных делителей. написать программу паскаль)

Var n,i,k:Integer;
Begin
 Read(n);
 for i:=1 to n do
   if (n mod i = 0) and (i mod 2 <>0) then k:=k+1;
 Writeln(k);
end.