Паскаль 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;BeginWrite('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.