В векторах заменить каждое число остатком от деления её квадрата на число компонентов вектора. - Turbo Pascal

В векторах a и b заменить каждое число остатком от деления её квадрата на N, где N- число компонентов вектора.

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

for i:=1 to n do
a[i]:=a[i]*a[i] mod N;

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

Переменная n представляет собой количество компонентов вектора, которое не превышает 20.
Цикл for выполняется от 1 до n, то есть от 1 до 20.
Внутри цикла переменная i принимает значения от 1 до n.
В каждой итерации цикла переменная a[i] принимает значение a[i]*a[i], то есть квадрат числа, являющегося компонентом вектора.
Затем значение a[i]*a[i] делится на N, где N - количество компонентов вектора.
Результат деления сохраняется в переменной mod, которая представляет собой остаток от деления.
Значение переменной mod присваивается переменной a[i].
После завершения цикла переменная a[i] будет содержать значения, в которых каждый компонент вектора был изменен таким образом, что его квадрат делится на количество компонентов вектора без остатка.