Вводится число. Вывести количество его нечётных делителей — Pascal(Паскаль)

var
a,i,kol:integer;
begin
readln(a);
for i:=2 to a do
if(a mod i=0)and(odd(i))then inc(kol);
writeln(kol);
readln;
end.