найти сумму нечётных делителей натурального числаПаскаль!!

Question

найти сумму нечётных делителей натурального числа
Паскаль!!

Answer 1

var a,b,n:real;

begin

writeln('vvedite chislo');

readln(a);

b=1;

n=b;

while b

begin

if (a mod b = 0) then n:=n*b;

b:=b+2;

end;

writeln('n = ',n);

readln;

end.