program yueshuhe; var n,i,s:longint; begin writeln('input n:'); readln(n); s:=1; for i:=2 to n do begin if n mod i=0 then s:=s*i; end; write('s=',s); readln end.