Помогите решить. Самостоятельная работа N4, Босова​

1)

1.1 var a: array[1..6] of integer;

1.2 a[4] = 6;

1.3 a[a[4]] = a[6] = 11;

2)

1 70 2 False

1 70 3 False

1 70 4 False

1 70 5 False

1 70 6 True

6 40 7 False

6 40 8 False

6 40 9 False

6 40 10 False

m = 40

k = 6

3)

3.1 Каким будет ответ... Ответ: 4;

3.2 Как исправить программу... Так: if a[k]<0 then s:=s+a[k]