Вычислить произведение ряда - Pascal (80788)

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

Помогите пожлуйста

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

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

var
    Result: Extended; //Double|Real
    i, n: Byte;
begin
    Result := 1;
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    for i := 2 to n + 1 do
        Result := Result * i;
    Write('Answer=', Result:0:0);
end.

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

Объявляется переменная Result типа Extended, которая будет использоваться для хранения результата вычислений.
Объявляются переменные i и n типа Byte, которые будут использоваться в циклах.
Присваивается начальное значение переменной Result, равное 1, чтобы не повлиять на результат операции умножения.
Выполняется цикл repeat...until для ввода значения переменной n с клавиатуры, пока введенное значение не будет больше 0.
Выполняется цикл for от 2 до (n + 1) для умножения текущего значения Result на каждое значение i в диапазоне.
Выводится значение Result с форматированием 0 знаков после запятой. Предположительно код написан на языке Pascal.