1 files changed, 0 insertions, 44 deletions
diff --git a/12/TP-ThanhHoá-2009/bai3.pas b/12/TP-ThanhHoá-2009/bai3.pas
deleted file mode 100644
index a98141e..0000000
--- a/12/TP-ThanhHoá-2009/bai3.pas
+++ /dev/null
@@ -1,44 +0,0 @@
-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.