diff --git a/InstallerSamples/WhatsNew/3_11_1/CbRt.pas b/InstallerSamples/WhatsNew/3_11_1/CbRt.pas
new file mode 100644
index 000000000..662a731d5
--- /dev/null
+++ b/InstallerSamples/WhatsNew/3_11_1/CbRt.pas
@@ -0,0 +1,4 @@
+begin
+  // Вычисление кубического корня. Отрицательные числа допускаются
+  Print(CbRt(-27));
+end.
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 15e880143..01c5cd2f5 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -1829,6 +1829,8 @@ function Log10(x: real): real;
 function LogN(base, x: real): real;
 /// Возвращает квадратный корень числа x
 function Sqrt(x: real): real;
+/// Возвращает кубический корень числа x (x может быть < 0)
+function Cbrt(x: real): real;
 ///-function Sqr(x: число): число;
 /// Возвращает квадрат числа x
 function Sqr(x: shortint): integer;
@@ -9384,6 +9386,8 @@ function LogN(base, x: real) := Math.Log(x) / Math.Log(base);
 
 function Sqrt(x: real) := Math.Sqrt(x);
 
+function Cbrt(x: real) := Sign(x) * Power(Abs(x), 1/3);
+
 function Sqr(x: integer): int64 := int64(x) * int64(x);
 
 function Sqr(x: shortint): integer := x * x;