1 files changed, 33 insertions, 0 deletions
diff --git a/challenge-001/abigail/pascal/ch-2.p b/challenge-001/abigail/pascal/ch-2.p
new file mode 100644
index 0000000000..67ae90bc30
--- /dev/null
+++ b/challenge-001/abigail/pascal/ch-2.p
@@ -0,0 +1,33 @@
+Program XXX;
+
+(*                                                                   *)
+(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-001 *)
+(*                                                                   *)
+
+(*                                                        *)
+(* Run as: fpc -och-2.out ch-2.p; ./ch-2.out < input-file *)
+(*                                                        *)
+
+var
+    i, max: integer;
+
+begin
+    while not eof do begin
+        readln (max);
+        for i := 1 to max do begin
+            if i mod 15 = 0 then begin
+                writeln ('fizzbuzz');
+                continue;
+            end;
+            if i mod  5 = 0 then begin
+                writeln (    'buzz');
+                continue;
+            end;
+            if i mod  3 = 0 then begin
+                writeln ('fizz'    );
+                continue;
+            end;
+            writeln (i);
+        end
+    end
+end.