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

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

дана последовательность чисел a i (i=1,2.,N) подсчитать произведение и количество четных чисел вывести их значения и порядковые номера

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

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

var
    Result: Extended; //Double, Real
    i, n, count: Byte;
begin
    repeat
        Write('Input n='); ReadLn(n);
    until (n > 1);
    Result := 1; i := 2; count := 0;
    while (i <= n) do
    begin
        Result := Result * i;
        Inc(count);
        WriteLn(#9, i, #9, count);
        Inc(i, 2);
    end;
    WriteLn('Mult=', Result:0:0);
    Write('Count=', count);
end.

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

Объявляется переменная Result типа Extended, которая будет использоваться для хранения результата вычислений.
Объявляются переменные i, n и count типа Byte для использования в цикле.
Начинается цикл с предусловием, в котором пользователю предлагается ввести значение n, и цикл повторяется, пока введенное значение n меньше или равно 1.
После завершения цикла устанавливается начальное значение переменных: Result устанавливается равным 1, i устанавливается равным 2, а count устанавливается равным 0.
Начинается цикл с постусловием, который выполняется до тех пор, пока i не станет больше или равно n.
В теле цикла переменная Result умножается на текущее значение i, затем значение count увеличивается на 1.
Выводится значение i и count.
Значение i увеличивается на 2.
После завершения цикла выводится результат умножения четных чисел Mult с округлением до целого и количество итераций Count.