Написать программу для вычисления заданного выражения - Turbo Pascal

Формулировка задачи:

Добрый вечер всем! Помогите, пожалуйста, первокурснице-студентке) Идет такое задание: Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор While: - 0,13+ 0,16 -0,19+…-0,31 Написала так, но ответ неверный( Когда считаешь вручную ответ идет -0,22, а по программе просто 0,22. Подскажите, пожалуйста, в чем моя ошибка.

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var
v, sum: real;
begin
clrscr;
sum:= 0.13;
v:= 0.18;
 
while (v < 0.31) do
begin
if v>0 then
v:= v+0.03
else
v:= v-0.03;
v:= -v;
sum:= sum+v;
end;
writeln ('S=', sum:4:2);
readln;
end.

Очень благодарна за ответы!)

Решение задачи: «Написать программу для вычисления заданного выражения»

Листинг программы

uses crt;
var v,a,sum: real;
    i:byte;
begin
clrscr;
a:=0.13;
sum:=0;
i:=0;
while a<0.32 do //+0.01 чтобы точно вошло 0.31
 begin
  i:=i+1;
  if odd(i) then sum:=sum-a
  else sum:=sum+a;
  a:=a+0.03;
end;
writeln ('S=', sum:4:2);
readln;
end.

Объяснение кода листинга программы

В начале кода используется директива uses, которая указывает на использование функций и библиотек из стандартной библиотеки языка Turbo Pascal.
Затем объявляются переменные v, a и sum, которые представляют собой числа с плавающей точкой (real).
Также объявляется переменная i, которая представляет собой байтовый тип данных.
Функция clrscr используется для очистки экрана перед началом работы программы.
Переменная a инициализируется значением 0.13.
Переменная sum инициализируется значением 0.
Переменная i инициализируется значением 0.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной a меньше 0.32.
Внутри цикла переменная i увеличивается на 1.
Если i является нечетным числом, то значение переменной sum уменьшается на значение переменной a.
Если i является четным числом, то значение переменной sum увеличивается на значение переменной a.
Значение переменной a увеличивается на 0.03.
После завершения цикла while выводится строка S=, за которой следует значение переменной sum в формате с четырьмя знаками после запятой и двумя знаками до запятой.
Вызывается функция readln, чтобы прочитать введенные пользователем данные и завершить выполнение программы.