program giai_thua; uses Crt; var n:Integer; function giaithua(n:Integer):LongInt; begin if n=0 then giaithua:=1 else giaithua:=n*giaithua(n-1); end; begin clrscr; Write('Ban muon tinh giai thua cua bao nhieu: '); ReadLn(n); WriteLn(n,'!= ',giaithua(n)); ReadLn; end.
