Что будет результатом исполнения куска программы на языке программированияTurbo

Что будет результатом исполненья куска программки на языке программирования
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;
(Опишите словами, например, результатом будет количество четных частей в каждом
столбце квадратной матрицы)