Вычислить сумму ряда - Turbo Pascal (33831)

вводятся действительные a и x и натуральное n. вычислить y. y=1/sin(1)+2/(sin(1)+sin(2))...+n/(sin(1)+sin(2)+...+sin(n))

2. Дана матрица целых чисел N*M и номер столбца K. Сдвинуть все столбцы с K по M на один влево.

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

u:=0;
y:=0;
For i:= 1 to n do
   begin
        u:=u+sin(i);
        y:=y + 1/u;

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

Переменная u инициализируется значением 0.
Переменная y инициализируется значением 0.
Запускается цикл For, который будет выполняться от 1 до n.
Внутри цикла переменная u увеличивается на значение sin(i), где i - это текущий индекс цикла.
Переменная y увеличивается на 1/u.
Цикл завершается, когда i достигает значения n.
Значения переменных u и y используются для дальнейших вычислений.