Найти значение выражения - PascalABC.NET (24739)

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

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

Решение задачи: «Найти значение выражения»

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

                            begin
  var n := readlninteger('n > 1;  n = ');
  writeln('S = ', n mod 2 * (1 + n / 10) - n div 2 / 10:0:1)
end.
                        