Помогите, пожалуйста, решить задачу!

[Mirel]

Задача:написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор: - 0,13+ 0,16 -1,9+…-3,1 While.

[Stilet]

А где формула ряда? Как элемент и-тый рассчитывается? или из массива?

[Mirel]

В задаче ошибка:- 0,13+ 0,16 -0,19++-3,1.

[Gongled]

Мой вариант.

program pr1;
uses CRT;
const
{ Конечное значение }
e_num = 3.1;
{ Шаг }
step = 0.03;

var
count : integer;
sum, num : real;

begin
clrscr;

{ Начальные присвоения }
count := 1;
{ Первый элемент }
num := -0.13;

while abs(num) < (e_num-step) do
begin
     { Считаем позицию }
     inc(count);
     { Проверяем позиции для определения знака }
     if count mod 2 = 0 then num := abs(num) + step
     else num := - (abs(num) + step);
     
     { Считаем сумму }
     sum := sum + num;
end;

write('Результат: ', sum);
end.

P.S. Меня смущает, что последний элемент отрицательный. Если это знакочередующая арифметическая прогрессия, то должно быть наоборот.