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

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.