Как написать такие программы на паскале?

[Bachshwa]

INPUT"Введите N ",n
    r=-1
    p=1
    FOR i=1 TO n
    p=p*i*3*r
    r=-r
    NEXT
    PRINT"произведение=";p
    
    INPUT"введите N ",n
    r=-1
    p=1
    FOR i=1 TO n
    p=p+i+3+r
    r=-r
    NEXT
    PRINT"сумма=";p

Я вообще правильно сделал?
написать программу вычисляющую и выдающую на печать сумму/произведение бесконечного числового ряда : y = (-3)6(-9)12(-15)....
Помогите эту программу в паскаль перевести.

[Stilet]

А формула ряда как выглядит?

[Bachshwa]

Сообщение от Stilet

А формула ряда как выглядит?

ФОрмула вроде в условии прописана.
Это все, что было у меня.
y = (-3)6(-9)12(-15)18(-21).....

[Аватар]

Ну и запись ряда. Так понятней для члена ряда
(-1)^k*3*k где k от 1 до n
Только он не сходящийся

[Bachshwa]

НЕ понимаю, что вы имеете ввиду, но суть не в этом.
Мне нужен код этой программы на паскале.Есть у кого идеи, как это сделать ?

[type_Oleg]

Вы определитесь, что вам надо.
Это -

Сообщение от Bachshwa

.. Мне нужен код этой программы на паскале...

Или это -

Сообщение от Bachshwa

.. написать программу вычисляющую и выдающую на печать сумму/произведение бесконечного числового ряда ..

Это разные вещи. Приведенная программа на Бейсике не считает сумму/произведение бесконечного числового ряда.
Потому что этот ряд не сходится . То есть его сумма/произведение стремится к ∞

[Bachshwa]

Условие:
Создать программу вычисления и выдачи на печать суммы/произведения N элементов бесконечного числового ряда.
y = (-3)6(-9)15(-18)....
Как я думаю, то просто на входе должно поступать число(N), и следую формуле, которая указана выше, должна считаться сумма и произведение.

[type_Oleg]

Вот вам сумма первых n элементов:

program Primer;

var i,t,n,Sum:Integer;

begin
 Write('n = ');
 ReadLn(n);
 Sum:=0;
 t:=-3;
 for i:=1 to n do
  begin
   Sum:=Sum+t;
   if t<0 then t:=-t+3 else t:=-t-3;
  end;
 WriteLn('summa=',Sum);
 ReadLn;
end.

Принцип понятен ? Произведение сами сделайте.