1 files changed, 28 insertions, 0 deletions
diff --git a/others/volume1/113.pas b/others/volume1/113.pas
new file mode 100644
index 0000000..64d2af5
--- /dev/null
+++ b/others/volume1/113.pas
@@ -0,0 +1,28 @@
+const
+  cond: array[0..2] of set of char = (
+    ['A', 'H', 'I', 'M', 'O', 'T', 'U', 'V', 'W', 'X', 'Y'],
+    ['B', 'C', 'D', 'E', 'H', 'I', 'K', 'O', 'X'],
+    ['H', 'I', 'N', 'O', 'S', 'X', 'Y']
+  );
+
+var
+  s: ansistring;
+  c: char;
+  b: array[0..2] of boolean;
+  i: int8;
+
+begin
+  readln(s);
+  for i := 0 to 2 do
+    b[i] := true;
+  for c in s do
+    for i := 0 to 2 do
+      b[i] := b[i] and (c in cond[i]);
+  for i := 0 to 2 do
+    if b[i] then
+      write('+')
+    else
+      write('-');
+  writeln
+end.
+end.