1 files changed, 17 insertions, 0 deletions
diff --git a/THT/B/QG-2014/guess.pas b/THT/B/QG-2014/guess.pas
new file mode 100644
index 0000000..cc036f8
--- /dev/null
+++ b/THT/B/QG-2014/guess.pas
@@ -0,0 +1,17 @@
+uses dic;
+
+var
+  s: string = '';
+  i: byte;
+  c: char;
+
+begin
+  for i := 1 to 50 do
+    begin
+      c := get_char_at_pos(i);
+      if c = '#' then
+        answer(s)
+      else
+        s := s + c
+    end
+end.