var a,b,n:real;

begin

writeln('vvedite chislo');

readln(a);

b=1;

n=b;

while b<a do

begin

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

b:=b+2;

end;

writeln('n = ',n);

readln;

end.