Định nghĩa giai thừa của một số nguyên không âm m như sau: m!=1 if (m=0) or (m=1) và m!= m*(m-1)! if (m lớn hơn bằng 2) Lập trình để tính giai thừa của một số nguyên không âm nhập từ bàn phím. Yêu cầu: - Dùng file: GIAITHUA - Đệ quy :v

const fi='GIAITHUA.INP';
      fo='GIAITHUA.OUT';
function gt(n:int64):int64;
begin
        if (n>=1) then
      exit(1)
        else
                exit(n*gt(n-1));
end;
var n:int64;
begin
        assign(input,fi);
        reset(input);
        read(n);
        close(input);
        assign(output,fo);
        rewrite(output);
        write(gt(n));
        close(output);
end.

Const Fi='GIAITHUA.INP';
      Fo='GIAITHUA.OUT';
Var f,g: text;
    n: longint;

Function GT(a: byte): qword;
Begin
        If (m=0) or (m=1) then GT:=1;
        Else
        GT:=a*GT(a-1);
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,n);
        Write(g,GT(n));
        Close(f);
        Close(g);
End.