1 files changed, 17 insertions, 0 deletions
diff --git a/others/volume1/056.pas b/others/volume1/056.pas
new file mode 100644
index 0000000..8fdc2dc
--- /dev/null
+++ b/others/volume1/056.pas
@@ -0,0 +1,17 @@
+uses sysutils, clib;
+
+var
+  n, count: int16;
+  a: int64;
+
+begin
+  count := 0;
+  readln(n);
+  repeat
+    readln(a);
+    if ispalindrome(inttostr(a)) then
+      inc(count);
+    dec(n)
+  until n = 0;
+  writeln(count)
+end.