Вычислить значение выражения - Turbo Pascal (33547)

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

Помогите написать программу Условие:Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор Repeat. -0,5 + 0,7 – 0,9 +...+ 0,23. TP7

Решение задачи: «Вычислить значение выражения»

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

uses crt;
var a,s,sh:real;
    z:integer;
begin
clrscr;
a:=-0.5;sh:=0.2;
z:=-1;
s:=a;
writeln(a:5:2);
repeat
 begin
  z:=-z;
  a:=z*(abs(a)+sh);
  if abs(a)>=1 then
     begin
       a:=a/10;sh:=sh/10;
     end;
  writeln(a:5:2);
  s:=s+a;
 end;
until abs(abs(a)-0.23)<0.0000001;
write('s=',s:0:2);
readln
end.

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

В начале кода подключается библиотека crt.
Объявляются переменные a, s, sh типа real и переменная z типа integer.
Строка clrscr очищает экран.
Далее присваиваются значения переменным a, s, sh.
Затем присваивается значение переменной z.
Переменная s инициализируется значением переменной a.
Выводится значение переменной a с шагом 5 до 2.
Затем начинается цикл repeat, внутри которого переменная z изменяется на -z.
Затем вычисляется новое значение переменной a по формуле a = z * (abs(a) + sh).
Если abs(a) больше или равно 1, то значение a уменьшается до 1/10.
После этого выводится значение переменной a с шагом 5 до 2.
Переменная s увеличивается на значение переменной a.
Цикл repeat продолжается до тех пор, пока abs(abs(a)) не станет меньше 0.0000001.
В конце выводится значение переменной s.
Программа завершается с помощью readln.