Вычислить произведение вещественных чисел - Free Pascal

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

Последовательно вводятся вещественные числа. Признаком окончания ввода является отрица-тельное число или нуль. Вычислить произведение (Х-2)(Х-4)(Х-6)…(Х-22) для каждого из введенных чи-сел Х.

Решение задачи: «Вычислить произведение вещественных чисел»

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

var
    x, mult: Single;
    i: Byte;
begin
    Write('x='); ReadLn(x);
    if (x > 0)
    then
        repeat
            i := 2;
            mult := 1;
            while (i < 23) do
            begin
                mult := mult * (x - i);
                Inc(i, 2);
            end;
            WriteLn('F(', x:0:1, ')=', mult:0:2);
            WriteLn;
            Write('x='); ReadLn(x);
        until (x <= 0);
end.

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

Объявлены переменные: x, mult (тип данных Single), i (тип данных Byte).
Ввод значения переменной x с помощью функции ReadLn.
Проверка на положительность числа x.
Если число x положительное, то начинается цикл.
В начале цикла устанавливается значение переменной i равным 2.
Инициализируется переменная mult единицей.
Цикл выполняется 21 раз.
На каждой итерации цикла вычисляется произведение чисел x и (x-i) и результат сохраняется в переменной mult.
Значение переменной i увеличивается на 2 после каждой итерации цикла.
После окончания цикла выводится значение переменной mult с использованием функции WriteLn.
Выводится значение переменной x с использованием функции WriteLn.
Если значение переменной x отрицательное, то цикл завершается.
Если значение переменной x положительное, то цикл продолжается.
Значение переменной x считывается с помощью функции ReadLn.
Цикл повторяется до тех пор, пока значение переменной x не станет отрицательным.
Выводится значение переменной x с использованием функции WriteLn.
Программа завершается.