diff --git a/Костин Андрей/README.md b/Костин Андрей/README.md
new file mode 100644
index 0000000..cd30458
--- /dev/null
+++ b/Костин Андрей/README.md	
@@ -0,0 +1,8 @@
+# Вычисление степени
+## Ссылка на видеоразбор
+https://youtu.be/4LgMiXXWyE4
+## Код из книги
+    #let rec exp x n =
+        if n = 0 then 1
+        else x * exp x (n - 1);;
+        
\ No newline at end of file
diff --git a/Костин Андрей/power.rkt b/Костин Андрей/power.rkt
new file mode 100644
index 0000000..e3e7079
--- /dev/null
+++ b/Костин Андрей/power.rkt	
@@ -0,0 +1,4 @@
+#lang racket
+(define (power n m)
+  (if (= m 0) 1
+      (* n (power n (- m 1)))))
\ No newline at end of file