Задание

Запишите значение переменной k, полученное в результате работы следующей программы.
var k, i: integer;
begin
k := 4;
for i := 1 to 3 do
k := i + 2 * k;
writeln\(k\);
end.