Задача 4 var k, i:integer; begin k:=2; for i:=0 to 2 do k:=3*k+i; writeln(k); end.

Пошаговое решение:

1. Инициализация переменной `k` значением 2.
2. Цикл `for i` выполняется для `i` от 0 до 2.
3. Итерация 1 (i=0): `k` становится `3*2 + 0 = 6`.
4. Итерация 2 (i=1): `k` становится `3*6 + 1 = 19`.
5. Итерация 3 (i=2): `k` становится `3*19 + 2 = 57 + 2 = 59`.
6. Вывод значения `k` на экран.

Ответ: 59