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

Первый вариант:Var   A,N:longint;   S,P:real;BeginWrite('Введите количество членов последовательности(не менее одного): ');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;BeginS:=1;P:=1;For N:= 0 to 3 do    Begin    P:=P*(2+N*3);    S:=S-P    End;WriteLn('S = ',S);End.