Вычислить значение суммы - Turbo Pascal (29580)

1) вычислить 2) Вывести на печать номера элементов кортежа, значение которых равно 3. 3) Транспонировать матрицу А (5X5)

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

    sum := 0;
    for i := 1 to n do
        sum := sum + (x - i) / Sqr(i);

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

Переменная sum инициализируется значением 0.
Переменная n определяется как число от 1 до 20.
Переменная x определяется как значение n.
Вычисляется значение (x - i) для каждой переменной i от 1 до n.
Значение (x - i) преобразуется в квадратный корень Sqr(i).
Значение Sqr(i) умножается на значение x - i.
Полученное произведение суммируется с переменной sum.
Переменная sum инкрементируется на сумму значений x - i.
Цикл повторяется, пока n не станет равным 0.
После завершения цикла значение переменной sum будет содержать сумму всех значений x - i.