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


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. — Правильный ответ на вопрос найдете ниже