Giai thừa

Cho số n nhập từ bàn phím. Hãy tính n!
       (Có thể dùng đệ quy)
                                                                 Giải
Program B111giaithua;
Uses Crt;
Var
       i,n:Longint;
       s:Real;
BEGIN
       ClrScr;
       Write('Nhap n = '); Readln(n);
       s:=1;
       For i:=1 to n do s:=s*i;
       Writeln('=> Vay ',n,'! = ',s:18:0);
       ReadLn;
END.