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