Сколько раз будет выполнен цикл k:=5; for i:= k-1 to k+1 do s:= s+1 РЕШЕНИЕ ПОЖАЛУЙСТА!!
Начальное значение переменной-счетчика = k-1, а конечное - k+1; => цикл выполнится (k+1)-(k-1)+1=k+1-k+1+1=3(раза)