J = 1
//n присваевается 10
n:=10;
//Цикл от от до n(10). A[i](текущему элементу массива) присваивается 1.
For I:=1 to n do A[I] :=1;
//J присваевается 1
J:=1;
//Цикл от 1 до n-1(9). Если текущий элемент массива........
For I:=1 to n-1 do if A[I].......