Надеюсь, ещё актуально.
Сначала инициируется цикл поэлементного прохождения массива с кодом (For i:=1 to N do
For j:=1 ti N do).
В этом коде, элементы массива обнуляются (A[i,j]=0). После чего, первому элементу присваивается значение 1 (A[i,j]=1).
Далее начинается цикл, в ходе которого заполняются значения некоторых элементов массива, согласно условиям (Цикл While).
Если остаток от суммы i и j равен 0, тогда мы увеличиваем j на 1, в ином случае увеличиваем i на 1.
Тем самым заполняется только часть массива, а не все элементы. Потому что при выполнении этого условия идет не поэтапное заполнение элементов массива.
А заполняются такие ячейки переменной k, которая в свою очередь принимает значение либо 1, либо -1.
В итоге получается 7 ненулевых элементов.