Найти значение переменной к после выполнения программы. 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]]

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.
ответ: k=3