Сколько раз будет выполнено тело цикла?
k := 5;
for i := k - 1 to k + 1 do s := s + i.