Merge pull request #5463 from Abigail/abigail/week-146

Week 146

1 files changed, 42 insertions, 0 deletions

diff --git a/challenge-146/abigail/pascal/ch-2.p b/challenge-146/abigail/pascal/ch-2.p
new file mode 100644
index 0000000000..983d69379c
--- /dev/null
+++ b/challenge-146/abigail/pascal/ch-2.p
@@ -0,0 +1,42 @@
+Program ch2;
+
+(*                  *)
+(* See ../README.md *)
+(*                  *)
+
+(*                                                        *)
+(* Run as: fpc -och-2.out ch-2.p; ./ch-2.out < input-file *)
+(*                                                        *)
+
+uses
+    sysutils;
+
+var
+    line: string;
+    a, b: integer;
+    i, x: integer;
+
+begin
+    while not eof do begin
+        readln (line);
+        x := pos ('/', line);
+        a := strtoint (copy (line, 1, x - 1));
+        b := strtoint (copy (line, x + 1, length (line) - x));
+        for i := 1 to 2 do begin
+            if a < b then begin
+                b := b - a;
+            end
+            else begin
+                a := a - b;
+            end;
+            if (a = 0) or (b = 0) then begin
+                break;
+            end;
+            write (a);
+            write ('/');
+            write (b);
+            write (' ');
+        end;
+        writeln ('');
+    end
+end.