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