Задан одномерный массив A=(7,5,4,6,3,2,1). Какое значение будет выведено в результате выполнения программы:

var a:array[1..7] of integer;
i,j,k,c:integer;
begin
write('Введите семь элементов массива');
for k:=1 to 7 do read(a[k]);
i:=3;
c:=0;
for k:=1 to 100 do
begin
j:=a[i];
a[i]:=i;
i:=j;
c:=c+i
end;
write(c);
end.

Помогите решить данную задачку. С виду просто, пытался реализовать данный массив, но не вышло.