Задан одномерный массив 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.

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

Спасибо большое, ответ сошёлся.

Единственное, не совсем понятно, от куда 20+95*3

Таблица с расчетом начальных шагов цикла - в прилагаемом файле.Из таблицы видно, что начиная с 6-го шага цикла действия будут повторяться, следовательно конечное значение переменной с будет равно 20+95*3 = 305.