Помогите пожалуйста.
Найти значение
переменной К после выполнения программы.

Program
Z3_7;

Var       A: array[1..6] of integer;

i, k: integer;

begin

for i≔1 to 6 do

A[i]≔(I*9) mod 7;

k≔0;

for i≔1 to 6 do

if A[A[i]]<I then k≔k+1;

write(k);

end.

  • A[1]:=1...A[6]:=6;
    A[1]:=9mod7=2;
    A[2]:=18mod7=4;
    A[3]:=27mod7=6;
    A[4]:=36mod7=1;
    A[5]:=45mod7=3;
    A[6]:=54mod7=5;
    A[2]=4>1;k=0;
    A[4]=1<2;k=1;
    A[6]=5>3;k=1;
    A[1]=2>4;k:=2;
    A[3]=6>5;k:=2;
    A[5]3<6;k:=3;
    Ответ:3.