- Lỗi: Tràn số (Để ý thì đây là bài tính n!)

- Khắc phục: Sử dụng "bignum" là được 

- Code:

uses crt;
type int = longint;
type xau = ansistring;

function to_str(v: int): xau; var temp: xau; begin str(v, temp); exit(temp); end;
operator -(c: char; v: int) r: int; begin r:=ord(c) - v; end;
operator +(c: char; v: int) r: char; begin r:=chr(ord(c) + v); end;
operator *(a, b: xau) res: xau;
var r: array[0..100000] of int;
    i, j, n, m: int;
begin
    fillchar(r, sizeof(r), 0);
    res:='';
    n:=length(a); m:=length(b);
    for i:=1 to n do
        for j:=1 to m do
            inc(r[i + j], (a[i] - 48) * (b[j] - 48));
    for i:=n + m downto 1 do begin
        inc(r[i - 1], r[i] div 10);
        r[i]:=r[i] mod 10;
    end;
    
    for i:=0 to n + m do res:=res + ('0' + r[i]);
    while (res[1] = '0') and (length(res) > 0) do delete(res, 1, 1);
end;
operator *(a: xau; b: int) res: xau; begin res:=a * to_str(b); end;
operator :=(a: int) r: xau; begin r:=to_str(a); end;

var i, n: word;
    p: xau;
begin
    clrscr;
    readln(n);
    
    p:=1;
    for i:=1 to n do p:=p * i;
    writeln(p);
readln;
end.
    

`@`Lỗi: Khi nhập n có giá trị lớn, giá trị của biến p sẽ vượt quá phạm vi giá trị của kiểu dữ liệu longint;

`=>` Sửa lại: Đổi kiểu longint `->` extended

________________________________

`@`Viết lại code:

uses crt;
 var i,n : longint ;
     p : extended;
  begin
   clrscr;
readln(n);
 p := 1 ;
 for i := 1 to n do
  p := p * i ;
   write(p);
    end .