Напишите программу (паскаль) для вычисления разности s=1 - 1*2 - 1*2*5 - 1*2*5*8 - 1*2*5*8*11

Первый вариант:

Var
   A,N:longint;
   S,P:real;
Begin
Write('Введите количество членов последовательности(не менее одного): ');
ReadLn(N);
S:=1;
P:=1;
For N:= 0 to N-1 do
    Begin
    P:=P*(2+N*3);
    S:=S-P
    End;
WriteLn('S = ',S);
End.

Второй вариант:

Var
   A,N:longint;
   S,P:real;
Begin
S:=1;
P:=1;
For N:= 0 to 3 do
    Begin
    P:=P*(2+N*3);
    S:=S-P
    End;
WriteLn('S = ',S);
End.