From 2b6ce5b49dedf4c6e6f41bd23a94f2f6a76d0a50 Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Tue, 13 Jun 2017 15:18:37 +0700
Subject: Add THT/B/QG-2014

---
 THT/B/QG-2014/guess.pas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 THT/B/QG-2014/guess.pas

(limited to 'THT/B/QG-2014/guess.pas')

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.
-- 
cgit 1.4.1