Подсчитать сумму выражения. Написать программу, находящую ответ за минимальное время и наименьший объем памяти - Pascal

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

Необходимо подсчитать сумму S(n) = 1 - 2 + 3 - 4 + … + (-1)ⁿ⁺¹*n. Напишите программу, которая находит ответ за минимальное время и использует наименьший объем оперативной памяти. Входные данные: одно целое число n (1 ≤ n ≤ 10⁹) Выходные данные: ответ S(n)

Решение задачи: «Подсчитать сумму выражения. Написать программу, находящую ответ за минимальное время и наименьший объем памяти»

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

  Read(n); WriteLn((n+1) div 2 * (2*Ord(Odd(n))-1));

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

n - переменная, которая считывается с помощью функции Read
Выражение (n+1) div 2 - вычисление целочисленного значения (n+1) деленного на 2
2*Ord(Odd(n))-1 - вычисление выражения, проверяющего является ли n нечетным и возвращающего соответствующее значение
Выражение (n+1) div 2 * (2*Ord(Odd(n))-1) - вычисление итогового значения, которое выводится с помощью функции WriteLn.