Паскаль s=1+(2/2)+(2+4/2*4)+(2+2+6/2*4*6)+ +(2+4+6+2n/2*4*6*2n) циклический алгоритм

Var
   S,S0,P:real;
   N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
S0:=0;
P:=1;
For N:= 1 to N do
    Begin
    S0:=S0+2*N;
    P:=P*2*N;
    S:=S+S0/P
    End;
WriteLn('S = ',S);
End.