Найти сумму ряда - Pascal (80606)

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

Вычислить:

Решение задачи: «Найти сумму ряда»

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

const
    MIN = 1;
    MAX = 10;
var
    k, n: MIN ..MAX ;
    kk: LongWord;
    s, sk: Extended;
begin
    s := 0; kk := 1;
    for k := MIN to MAX do
    begin
        sk := 0;
        for n := MIN to k do
            sk := sk + Sin(k * n);
        kk := kk * k;
        s := s + sk / kk;
    end;
    WriteLn('s=', s:0:3);
end.

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

Объявляются константы MIN и MAX с значениями 1 и 10 соответственно.
Объявляются переменные k и n с диапазоном значений от MIN до MAX (1..10).
Объявляется переменная kk типа LongWord.
Объявляется переменная s типа Extended.
s и kk инициализируются нулевыми значениями.
Начинается цикл for, в котором переменная k принимает значения от MIN до MAX.
Вложенный цикл for с переменной n, которая также принимает значения от MIN до k.
Внутри вложенного цикла значение переменной sk увеличивается на Sin(k * n).
Переменная kk умножается на значение k.
Переменная s увеличивается на значение sk деленное на kk.
После завершения цикла выводится значение переменной s с точностью до трех знаков после запятой.