cho số nguyên n(n<=50). em hãy lập trình tính tổng như sau : S=(2+3/1.2)+(4/1.2.3)+...+(n+1/1.2.3...n)

program btsydn;

uses crt;

  var n, i, j, u: integer;

               s: real;

begin

          clrscr;

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

          if n>50 then write('n<=50, nhap sai hay nhap lai!') else

          s:=0

          begin

                 for i:=2 to n+1 do

                 begin

                           u:=1;

                           for j:=1 to i-1 do u:=u*j;

                           s:=s+i/u;

                 end;

                 write('S = ', s);

          end;

          readln

end.