Вычислить сумму ряда (-1)^i * 2^i - Turbo Pascal

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

Ребят помогите пожалуйста я в паскале "0" второй день рыскаю в инете найти не могу. задача: вычислить сумму (-1)n 2i где i= от 1 до n

Решение задачи: «Вычислить сумму ряда (-1)^i * 2^i»

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

var
    i, n: Word;
    sum, si: LongInt;
begin
    repeat
        Write('Input n (>0) = '); ReadLn(n);
    until (n > 0);
    sum := 0;
    if (Odd(n))
    then
        si := -1
    else
        si := 1;
    for i := 1 to n do
    begin
        si := si * 2;
        Inc(sum, si);
    end;
    Write('Ans=', sum);
end.

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

В начале объявляются переменные i, n, sum и si. Переменная sum инициализируется значением 0, а переменная si инициализируется значением -1 или 1 в зависимости от того, является ли n нечетным числом.
Затем идет цикл repeat-until. Цикл повторяется до тех пор, пока n больше 0. Внутри цикла пользователю предлагается ввести значение n.
После того, как значение n было введено, переменная sum инициализируется значением 0.
Затем проверяется, является ли n нечетным числом. Если да, то значение переменной si изменяется на -1, иначе оно изменяется на 1.
Затем начинается цикл for. Он выполняется от 1 до n. Внутри цикла переменная si умножается на 2, а затем значение sum увеличивается на si.
После завершения цикла for выводится значение sum.
Конец программы.