cho số n bất kỳ được nhập vào từ bàn phím . Viết giải thuật toán tính n giai thừa

uses crt;

var n: longint;

Function Giai_Thua(n:longint):longint;

Var GT:Longint;

begin

     GT:=1;

     while n > 0 do

     begin

     GT:=GT * n;

     n:=n-1;

     end;

     Giai_thua:=GT;

end;

begin

    clrscr;

    write('Nhap n: '); readln(n);

    write(n,'!=',Giai_thua(n));

    readln

end.

uses crt;
var i,n,kq:longint;
begin
        clrscr; 
        kq:=1;
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                kq:=kq*i;
       write('Ket qua la: ',kq);
        readln;
end.