Что будет результатом выполнения фрагмента программы на языке программирования turbo pascal: for i : = 1 to n do for j : = 1 to n do if i = j then a[i, j] : = a[i, j] + i; (опишите словами, например, результатом будет количество четных элементов в каждом столбце квадратной матрицы)