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)

prigram tinhtong;

uses crt;

var n,i,j:integer;

       s,t:real;

begin

clrscr;

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

s:=0;

for i:=2 to n+1 do

  begin

    t:=1;

    for j:=1 to i-1 do

       t:=t*j;

    s:=s+i/t;

  end;

write(‘Tong la: ‘,s);

readln

end.