1 files changed, 45 insertions, 0 deletions
diff --git a/challenge-137/abigail/pascal/ch-2.p b/challenge-137/abigail/pascal/ch-2.p
new file mode 100644
index 0000000000..00f2a424a4
--- /dev/null
+++ b/challenge-137/abigail/pascal/ch-2.p
@@ -0,0 +1,45 @@
+Program XXX;
+
+(*                  *)
+(* See ../README.md *)
+(*                  *)
+
+(*                                                        *)
+(* Run as: fpc -och-2.out ch-2.p; ./ch-2.out < input-file *)
+(*                                                        *)
+
+var
+    n: Longint;
+
+function reverse (num: Longint): Longint;
+    var
+        rev: Longint;
+
+    begin
+        rev := 0;
+        while num > 0 do begin
+            rev := rev * 10;
+            rev := rev + (num mod 10);
+            num := num div 10;
+        end;
+        reverse := rev;
+    end;
+
+
+function ly (num: Longint): integer;
+    begin
+        if num >= 10000000 then
+            ly := 1
+        else if num = reverse (num) then
+            ly := 0
+        else 
+            ly := ly (num + reverse (num))
+    end;
+      
+
+begin
+    while not eof do begin
+        readln (n);
+        writeln (ly (n));
+    end
+end.