Сколько раз будет выполнен цикл 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(раза)