помогите найти количество нечетных делителей числа в паскале

ага, спасибо

var K,n,i: integer;beginwriteln('Введите число');readln(K); n:=0;for i:=1 to K doif (i mod 2=1)and(K mod i =0) then n:=n+1;writeln('Количество нечетных делителей числа равно ', n);readlnend.                                                                                                                     Это?