Арифметические выражения, массивы - Pascal

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

type Vector = array [1...5] of real; var x, y : Vector; напишите арифметическое выражение значением которого является: 1)сумма первых трёх компонент переменной х 2)сумма всех компонент переменной у 3)произведение всех компонент переменной х 4) абсолютное значение третьей компоненты переменной у 5) сумма первых компонент переменных х и у

Решение задачи: «Арифметические выражения, массивы»

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

1.
sum:=0;
for i:=1 to 3 do
sum:=sum+x[i];
2.
sum:=0;
for i:=1 to 5 do
sum:=sum+y[i];
3.
p:=1;
for i:=1 to 5 do
p:=p*x[i];
4.
res:=abs(y[3]);
5.
res:=x[1]+y[1];

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

В этом коде переменной sum присваивается начальное значение 0. Затем в цикле for происходит суммирование элементов массива x с шагом 1 до 3. Значение суммы обновляется на каждой итерации цикла.
В этом коде переменной sum также присваивается начальное значение 0. Затем в цикле for происходит суммирование элементов массива y с шагом 1 до 5. Значение суммы обновляется на каждой итерации цикла.
В этом коде переменной p присваивается начальное значение 1. Затем в цикле for происходит умножение каждого элемента массива x на текущее значение переменной p. Значение p обновляется на каждой итерации цикла.
В этом коде переменной res присваивается значение абсолютного значения элемента массива y с индексом 3.
В этом коде переменной res присваивается сумма элементов массивов x и y с индексами 1 и 1 соответственно.