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

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

Всем привет. Нужно решить задачу: Дано натуральное число n. Найдите a₁b₁+a₂b₂+...a_nb_n, где a₁=b₁=1; Спасибо!

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

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

var
    ak, ak1, bk, bk1, res: Real;
    i, n: LongWord;
begin
    repeat
        Write('N (>0)=');
        ReadLn(n);
    until (n > 0);
    ak1 := 1; bk1 := 1; res := 1;
    for i := 2 to n do
    begin
        ak := (ak1 / 2 + Sqrt(bk1)) / 2;
        bk := 2 * Sqr(ak1) + bk1;
        res := res + ak * bk;
        ak1 := ak;
        bk1 := bk;
    end;
    WriteLn('res=', res:0:2);
end.

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

Создается переменная var с необходимыми значениями типов данных.
Задается условие для цикла repeat, который будет выполняться до тех пор, пока n больше 0.
Внутри цикла repeat считывается значение n с помощью функции ReadLn().
Создаются три переменные ak, ak1 и bk со значениями 1.
Создается переменная bk1 со значением 1.
Создается переменная res со значением 1.
Начинается цикл for, который будет выполняться от 2 до n.
Внутри цикла for вычисляются значения переменных ak и bk по формуле: ak = (ak1 / 2 + Sqrt(bk1)) / 2 и bk = 2 * Sqr(ak1) + bk1.
Значение переменной res увеличивается на произведение ak и bk: res := res + ak * bk.
Значения переменных ak1 и bk1 обновляются: ak1 := ak и bk1 := bk.
После завершения цикла for выводится значение переменной res с помощью функции WriteLn().
Цикл repeat завершается, когда n становится равным 0.
Код завершается.