计算大数阶乘--Pascal版

先给出代码：

program fac;var   i,j,n,len: integer;   rad,c,r: longint;   buff: array[1..16000] of integer;   num: string[5];begin   writeln('calculate n!');   write('n=?');   read(n);   rad:=10000;   len:=1;   buff[1]:=1;   for i:=1 to n do   begin      c:=0;      for j:= 1 to len do      begin        r := buff[j] * i +c;        buff[j] := r mod rad;        c := r div rad;      end;      if c>0 then      begin        len:=len+1;        buff[len]:=c;      end;   end;   write('n!=',buff[len]);   for i:=len-1 downto 1 do   begin       str(buff[i],num);       if length(num)<4 then          write(copy('0000',1,4-length(num)));       write(buff[i]);   end;END.

说明：
开发环境： Free Pascal 2.4 (是一个dos程序,感觉和Turbo Pascal类似）
下载页面： http://down.tech.sina.com.cn/page/46658.html
Free Pascal 设置：
1. Dos 窗口代码页设为437(美国),否则会乱码。
2. Options->Compiler mode 设为 Turbo Pascal compatible
学习资料：
PASCAL语言培训教程,下载页面 http://www.05sun.com/downinfo/5433.html

下载，安装Free Pascal. 学习、编写和调试这个程序总共约花了2个小时。
曾经遇到的问题：
  1. 变量r定义为integer导致数据溢出
  2. 参数递减的for误用了to 关键字，改成 downto 后，一切正常。