Ответ: код программыvar    k, i: integer;begin    k := 4;    for i := 1 to 3 do        k := i + 2 * k;    Writeln(k);end.Вывод43