diff --git a/модули/прелюдия.хуя b/модули/прелюдия.хуя
index 7d15356..520bff6 100644
--- a/модули/прелюдия.хуя
+++ b/модули/прелюдия.хуя
@@ -65,3 +65,11 @@
     кц
     вернуть символ;
 кц
+
+про строки_равны(одна: строка, другая: строка): лог нч
+    если размер(одна) != размер(другая) то вернуть ложь;
+    для индекс := 1..размер(одна) то
+        если одна(индекс-1) != другая(индекс-1) то
+            вернуть ложь;
+    вернуть истина;
+кц
diff --git a/тесты/тест.хуя b/тесты/тест.хуя
index bb08b68..35ff70a 100644
--- a/тесты/тест.хуя
+++ b/тесты/тест.хуя
@@ -154,6 +154,15 @@
     сравнить_какие_то_структуры(одна, вторая);
 кц
 
+про тест_строки_равны(одна: строка, другая: строка) то
+    печать("    «",одна,"» = «",другая,"» => ",строки_равны(одна, другая),«\н»);
+
+про сравнение_строк() нч
+    печать(«Сравнение строк:\н»);
+    тест_строки_равны(«Hello», «World»);
+    тест_строки_равны(«Foo», «Foo»);
+кц
+
 про главная() нч
     печать(«Печать чисел: », 0, «, », 69, «, », 1234567890, «\н»);
     печать(«Печать логических: », 69 = 69, «, », 69 = 420, «\н»);
@@ -176,4 +185,5 @@
     тест_подбрить_строку_слева(«»);
     индексация_срезов_внутри_структуры();
     сравнение_структур();
+    сравнение_строк();
 кц