S=1! +2!+3! ++n! Viết Phương trình Tính tổng thừa

program oken;
uses crt;
var n,i: byte;
    s: real;
function gt(a: longint): real;
    begin
        if a=1 then
            gt:=1
        else
            gt:= a*(gt(a-1));
    end;
begin
    clrscr;
    write('Nhap so N: '); readln(n);{gion han la 32 de hien thi tron ven ket qua}
    for i:=1 to n do
        s:=s+gt(i);
    writeln('tong luy thua cua ',n,': ',s:0:0);
    readln;
end.

program ct;

uses crt;

var n:integer;

      S:longint;

function gt(x:longint):longint;

   var i,j:longint;

begin clrscr;

     j:=1;

   for i:=1 to x do

     j:=j*i;

   exit(j);

end;

begin

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

     S:=0;

   for i:=1 to n do

     S:=S+gt(i);

   write('Tong S la: ',S);

readln;

end.

Học tốt!