输入一个自然数X,求这个自然数的所有约数之积S.（Pascal)

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.
话说这个不是已经给你解决了吗...咋又发上来了..
还是说你问我之前已经问了