Изначально дано:
Var k, i: integer;Begink := 4;Цикл For i := 1 to 3 do означает, что мы выполним тело цикла 3 раза:
k := i + 2*kk = 1 + 2 * 4k = 1 + 8k = 9k := i + 2*kk = 2 + 2 * 9k = 2 + 18k = 20k := i + 2*kk = 3 + 2 * 20k = 3 + 40k = 43Writeln(k); выведет последнее значение k.
Ответ: 43