From 70f37066d2d368a2810a2be209ae0bd8b391293b Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Mon, 21 Nov 2016 23:10:19 +0700
Subject: 12/TP-ThanhHoá-2009: Add bai3.pas
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 "12/TP-ThanhHo\303\241-2009/bai3.pas" | 44 +++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 "12/TP-ThanhHo\303\241-2009/bai3.pas"

diff --git "a/12/TP-ThanhHo\303\241-2009/bai3.pas" "b/12/TP-ThanhHo\303\241-2009/bai3.pas"
new file mode 100644
index 0000000..a98141e
--- /dev/null
+++ "b/12/TP-ThanhHo\303\241-2009/bai3.pas"
@@ -0,0 +1,44 @@
+var
+  f: text;
+  s: string;
+  min: byte = 255;
+
+
+procedure palen(
+  s: string;
+  tmp: smallint
+);
+
+  begin
+    if tmp + length(s) >= min then
+      exit;
+
+    if length(s) < 2 then
+      begin
+        min := tmp + length(s);
+        exit
+      end;
+
+    if s[1] = s[length(s)] then
+      palen(copy(s, 2, length(s) - 2), tmp + 2)
+    else
+      begin
+        palen(copy(s, 2, length(s) - 1), tmp + 2);
+        palen(copy(s, 1, length(s) - 1), tmp + 2)
+      end
+  end;
+
+
+begin
+  assign(f, 'BAI3.INP');
+  reset(f);
+  read(f, s);
+  close(f);
+
+  palen(s, -length(s));
+
+  assign(f, 'BAI3.OUT');
+  rewrite(f);
+  writeln(f, min);
+  close(f)
+end.
-- 
cgit 1.4.1