Замена условного оператора - Turbo Pascal

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

Задано натуральное число . Найти сумму -1^+2^-3^+4^-...+n^.Условный оператор не использовать.^-это квадрат

Решение задачи: «Замена условного оператора»

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

var
  i, n: byte;
  s: longint;
  k: shortint;
  
begin
  k := 1;
  s := 0;
  Write('N = '); ReadLn(n);
  for i := 1 to n do
  begin
    k := -k;
    s := s + Sqr(i) * k
  end;
  WriteLn('S = ', s);
  ReadLn
end.

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

В начале кода объявлены переменные i, n и s, которые будут использоваться в дальнейшем.
Переменная k инициализируется значением 1.
Переменная s инициализируется значением 0.
Выводится сообщение «N = », после чего считывается значение переменной n с помощью функции ReadLn.
Запускается цикл for, который будет выполняться n раз.
Внутри цикла переменная k инициализируется отрицательным значением k.
Переменная s инициализируется суммой квадратов чисел от 1 до n, умноженных на переменную k.
Выводится сообщение «S = », после чего выводится значение переменной s.
Конец цикла.
Выводится символ новой строки с помощью функции ReadLn.