Найти количество нечетных делителей числа. Определить, является ли число простым

begin
  var n:=ReadInteger;
  WriteLn(Range(1,n,2).Count(x->n mod x=0));
  WriteLn('Простое = ',(n>1)and((n=2)or(Range(1,n,2).Count(x->n mod x=0)=(odd(n)?2:1))));
end.

Var K,n,i,b: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln;
begin
for i:=1 to b do 
if (b mod i = 0) then
k:=k+1;
if k >2 then 
 writeln ('число не простое')
else
writeln ('число простое');
end;
end.

Var K,n,i,b,a: integer;
begin
writeln('Введите число');
readln(a); n:=0;
for i:=1 to a do
if (i mod 2=1)and(a mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('простое')
else writeln('не простое');
readln;
end.

begin
  var n := ReadInteger;
  WriteLn((Range(1, n, 2) + Range(n, n)).Count(x -> n mod x = 0));
  WriteLn('Простое = ', (n > 1) and ((n = 2) or ((Range(1, n, 2) + Range(n, n)).Count(x -> n mod x = 0) = (odd(n) ? 2 : 1))));
end.

begin
  var n := ReadInteger;
  WriteLn('Простое = ', (n > 1) and ((n = 2) or ((Odd(n) ? Range(1, n, 2).Count(x -> n mod x = 0) : (Range(1, n, 2) + n).Count(x -> n mod x = 0)) = (odd(n) ? 2 : 1))));
end.