diff --git a/Яндринский Влад/NOD.rkt b/Яндринский Влад/NOD.rkt
new file mode 100644
index 0000000..2506e42
--- /dev/null
+++ b/Яндринский Влад/NOD.rkt	
@@ -0,0 +1,8 @@
+(define (gcd x y)
+    (if (= y 0)
+        x
+        (gcd y (modulo x y))
+    )
+)
+
+(writeln (gcd 999 33))
\ No newline at end of file
diff --git a/Яндринский Влад/README.md b/Яндринский Влад/README.md
new file mode 100644
index 0000000..1ee6b2f
--- /dev/null
+++ b/Яндринский Влад/README.md	
@@ -0,0 +1,6 @@
+# Вычисление НОД
+## Ссылка на видеоразбор
+https://youtu.be/8ulDLp5TqL0
+## Код из книги
+    #let rec gcd x y =
+    if y = 0 then x else gcd y (x mod y);;
\ No newline at end of file