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

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

Смоделировать арифметический цикл с помощью оператора цикла for. Массивы не использовать. Для заданного n получить произведение чисел образованных по закону аi = sin2i, где i=1, 2,…n.

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

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

var
    i, n: Word;
    mult: Extended; //Double, Real, Single
begin
    repeat
        Write('Input n (>0): ');
        ReadLn(n);
    until (n > 0);
    mult := 1;
    for i := 1 to n do
        mult := mult * Sin(2 * i);
    Write('Answer=', mult:0:3);
end.

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

В начале объявляются переменные: i, n и mult, которые будут использоваться в коде.
Затем идет цикл repeat-until, который будет выполняться до тех пор, пока значение переменной n больше 0. Внутри цикла пользователю предлагается ввести значение n (с помощью функции ReadLn), после чего цикл продолжается.
После цикла mult инициализируется единицей.
Затем следует цикл for, который будет выполняться от 1 до n. Внутри цикла значение i увеличивается на 1, а значение mult умножается на синус удвоенного значения i.
По завершении цикла значение mult выводится на экран с помощью функции Write.
Код заканчивается точкой с запятой.