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

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

Дано целое число N (> 0). Найти значение выражения 1.1-1.2+1.3-... (N слагамых, знаки чередуются). Условный оператор не использовать.

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

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

program for13;
 
var
a,sum:real;
n,i,b:integer;
 
begin
  writeln('Vvedite chislo');
  read(n);
  a:=1.1;
  sum:=0;
  b:=-1;
  
  for i:=1 to (n*10)-10 do
    begin
      b:=-b;
      a:=a+0.1;
      writeln(' a:',a,' sum:');
      sum:=sum+a*b;
      writeln(sum);
     end;
   
  writeln;
  writeln('resultat:',sum);
   
   
   
 end.

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

Программа начинается с объявления переменных a, sum, n, i и b типа real, integer соответственно.
Выводится сообщение «Введите число», после чего считывается число n.
Переменные a, sum и b инициализируются значениями 1.1, 0 и -1 соответственно.
Задается начальное значение для переменной b (-1).
Задается начальное значение для переменной a (1.1).
Задается начальное значение для переменной sum (0).
Задается начальное значение для переменной i (1).
Запускается цикл for, который выполняется от 1 до (n*10)-10.
Внутри цикла переменная b сменяет знак на противоположный.
Переменная a увеличивается на 0.1.
Значение переменной sum увеличивается на произведение a и b.
Выводится значение переменной sum.
Цикл завершается.
Выводится итоговое значение переменной sum.