因数个数

设一正整数$S=2^{p_1}*3^{p_2}*5^{p_3}*7^{p_4}\cdots$（即将S分解质因数） 则他的因数个数为$(p_1+1)*(p_2+1)*(p_3+1)\cdots(p_n+1)$（即把所有的指数加一然后相乘） PASCAL代码:

i:=1;
s:=1;
while n>1 do
  begin
    inc(i);
    while n mod i=0 do
      begin
        n:=n div i;
        s:=s*(n+1);
      end;
  end;
write(s);