Составить пользовательскую процедуру или функцию для вычисление суммы: (1^1+1)/1+(2^2+1)/(1*2)+(3^3+1)/(1*2*3)++(n^n+1)/(1*2*3*4**n);

Function Sum(n:integer):real;
Var
   F,St,S:real;
   i:integer;
Begin
F:=1;
S:=0;
For n:= 1 to n do
    Begin
    F:=F*n;
    St:=1;
    For i:= 1 to n do
        St:=St*n;
    S:=S+(St+1)/F;
    End;
Sum:=S;
End;
Var
   n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Сумма: ',Sum(n))
End.