求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数.

var n,i,ans:integer;
begin
readln(n);ans:=0; //读入,计数器置0
for i:=1 to n do if n mod i=0 then inc(ans); //从1到n循环 找到一个他的因数就计数器加一
writeln(ans); //最后输出结果
end.
再问： 要是把n小于等于10000改成2147483647呢