Определите, что будет напечатано в результате работы следующей программы.
Var k, і: integer;
Begin
k := 4;
For і := 1 to 3 do
k := 2*k + і;
Writeln(k);
End.