From 54b311ed4a125302203593cf55472b6351c7dc6b Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Sun, 15 Jun 2025 14:39:42 +0300
Subject: [PATCH] GraphTraverse.pas

---
 InstallerSamples/Algorithms/GraphTraverse.pas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 InstallerSamples/Algorithms/GraphTraverse.pas

diff --git a/InstallerSamples/Algorithms/GraphTraverse.pas b/InstallerSamples/Algorithms/GraphTraverse.pas
new file mode 100644
index 000000000..6669b6c44
--- /dev/null
+++ b/InstallerSamples/Algorithms/GraphTraverse.pas
@@ -0,0 +1,16 @@
+// Обход ориентированного графа в глубину
+procedure TraverseDepth(gr: array of array of integer; p: array of boolean; x: integer);
+begin
+  Print(x);
+  p[x] := True;
+  foreach var y in gr[x] do
+    if not p[y] then
+      TraverseDepth(gr,p,y);
+end;
+
+begin
+  var gr := [[1, 2], [3], [1, 4], [5], [6], [4, 7], [], []];
+  var p := [False] * gr.Count;
+  TraverseDepth(gr,p,0);  
+end.
+