Week 89 Issue 1

1 files changed, 40 insertions, 0 deletions

diff --git a/challenge-089/ash/pascal/ch-1.pas b/challenge-089/ash/pascal/ch-1.pas
new file mode 100644
index 0000000000..aeb64d4b38
--- /dev/null
+++ b/challenge-089/ash/pascal/ch-1.pas
@@ -0,0 +1,40 @@
+(*
+    To compile and run:
+    $ fpc ch-1.pas
+    $ ./ch-1 100
+    13015
+*)
+
+program Hello(input, output);
+
+uses sysutils;
+
+var
+    n, x, y, s: integer;
+
+function gcd(a, b: integer): integer;
+var
+    t: integer;
+begin
+    while b <> 0 do begin
+        t := b;
+        b := a mod b;
+        a := t;
+    end;
+
+    gcd := a
+end;
+
+begin
+    if paramCount() = 0 then
+        n := 3
+    else
+        n := StrToInt(paramStr(1));
+    
+    s := 0;
+    for x := 1 to n do
+        for y := x + 1 to n do
+            s += gcd(x, y);
+
+    writeln(s);
+end.