Определи значение переменной k после выполнения фрагмента программы: k := 12; for i := 1 to 5 do begin k := k - 3; end;

В начале переменной k присваивается значение 12.

Дальше выполняется цикл for i := 1 to 5, то есть тело цикла выполнится ровно 5 раз (при i = 1, 2, 3, 4, 5). Внутри цикла каждый раз выполняется команда:

k := k - 3;

То есть на каждой итерации значение k уменьшается на 3.

Посчитаем по шагам:

1. после 1-й итерации: k = 12 − 3 = 9

2. после 2-й итерации: k = 9 − 3 = 6

3. после 3-й итерации: k = 6 − 3 = 3

4. после 4-й итерации: k = 3 − 3 = 0

5. после 5-й итерации: k = 0 − 3 = −3

Итог: после завершения цикла значение переменной k равно −3.