Задан одномерный массив A=(7,5,4,6,3,2,1). Какое значение будет выведено в результате выполнения программы:var a:array[1..7] of integer;i,j,k,c:integer;beginwrite('Введите семь элементов массива');for k:=1 to 7 do read(a[k]);i:=3;c:=0;for k:=1 to 100 dobegin j:=a[i];a[i]:=i;i:=j;c:=c+iend;write(c);end.Пожалуйста посчитайте решить данную задачку. С виду просто, пытался реализовать данный массив, но не вышло.