diff --git a/TestSuite/PowerConst.pas b/TestSuite/PowerConst.pas
new file mode 100644
index 000000000..84ba37f73
--- /dev/null
+++ b/TestSuite/PowerConst.pas
@@ -0,0 +1,5 @@
+const a = 2 ** 3;
+
+begin
+  Assert(a = 8); 
+end. 
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 515b14983..39247a7a6 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -9376,6 +9376,9 @@ begin
     Self[k, j] := a[j]
 end;
 
+/// Меняет строку k двумерного массива на другую строку
+procedure SetRow<T>(Self: array [,] of T; k: integer; a: sequence of T); extensionmethod := Self.SetRow(k,a.ToArray);
+
 /// Меняет столбец k двумерного массива на другой столбец
 procedure SetCol<T>(Self: array [,] of T; k: integer; a: array of T); extensionmethod;
 begin
@@ -9385,6 +9388,9 @@ begin
     Self[i, k] := a[i]
 end;
 
+/// Меняет столбец k двумерного массива на другой столбец
+procedure SetCol<T>(Self: array [,] of T; k: integer; a: sequence of T); extensionmethod := Self.SetCol(k,a.ToArray);
+
 /// Возвращает по заданному двумерному массиву последовательность (a[i,j],i,j)
 function ElementsWithIndexes<T>(Self: array [,] of T): sequence of (T, integer, integer); extensionmethod;
 begin