Используя оператор цикла с параметром, вычислить значения выражений при заданном n.

program Project1;
 
{$N+} //Подключение математического сопроцессора.
 
var
  i, Sign, AddV, IncV, Num, Res : Longint;
  N : Word;
  S : String;
begin
  repeat
    Writeln('Задайте неотрицательное целое число N:');
    Readln(N);
 
    Sign := -1; //Знак добавочного элемента: +1, -1.
    IncV := 0;
    AddV := 0;
    Num := 0;
    Res := 1;
    for i := 1 to N do begin
      //Величина приращения добавочного элемента.
      case i of
        1, 2 : IncV := 1;
        else Inc(IncV); //т. е.: IncV := IncV + 1;
      end;
      //Вычисление модуля добавочного элемента.
      Inc(AddV, IncV); //т. е.: AddV := AddV + IncV;
      //Знак добавочного элемента.
      Sign := -Sign;
      //Вычисление значения очередного элемента.
      Num := Num + Sign * AddV;
      //Вычисление произведения.
      Res := Res * Num;
      //Распечатка текущих значений.
      Writeln('i = ', i, ', Num = ', Num, ', Res = ', Res);
    end;
 
    Writeln('Ответ: ', Res);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.