k после выполнения фрагмента программы:
k := 2;
for i := 0 to 7 do begin
k := k + 2 * i;
end;
Потом в цикле получается:
i = 0 ⇒ k = 2 + 2*0 = 2
i = 1 ⇒ k = 2 + 2*1 = 4
i = 2 ⇒ k = 4 + 2*2 = 8
i = 3 ⇒ k = 8 + 2*3 = 14
i = 4 ⇒ k = 14 + 2*4 = 22
i = 5 ⇒ k = 22 + 2*5 = 32
i = 6 ⇒ k = 32 + 2*6 = 44
i = 7 ⇒ k = 44 + 2*7 = 58