Add some more Pascal

pascal/Factorial.pas

@@ -0,0 +1,20 @@
+program Factorial;
+
+var input: Word;
+
+function Fact (n: word): NativeUInt;
+begin
+  case n of
+    0: Fact := 0;
+    1: Fact := 1;
+    else Fact := n * Fact(n - 1)
+  end;
+end;
+
+
+begin
+  Write('Which Factorial to calculate? ');
+  ReadLn(input);
+
+  WriteLn(Fact(input));
+end.

pascal/Fib2.pas

@@ -0,0 +1,25 @@
+{ Prints Fibonacci Number supplied }
+program Fib2;
+
+const
+  ZERO = 1;
+  ONE = 1;
+
+var
+  input: word;
+
+function Fib (n: word): NativeUInt;
+begin
+  case n of
+    0: Fib := 0;
+    1, 2: Fib := 1;
+    else Fib := Fib(n - 2) + Fib(n - 1)
+  end;
+end;
+
+begin
+  write('Which Fibonacci number would you like? ');
+  readln(input);
+
+  WriteLn(Fib(input));
+end.

pascal/Makefile

@@ -3,7 +3,7 @@ PROGRAMS_O = $(patsubst %.pas,%.o,$(PROGRAMS_SRC))
 PROGRAMS = $(patsubst %.pas,%,$(PROGRAMS_SRC))
 
 all:
-	$(foreach file, $(PROGRAMS), fpc ${file};)
+	$(foreach file, $(PROGRAMS), fpc -v0 ${file};)
 
 clean:
 	rm -f $(PROGRAMS_O)

pascal/Pow2.pas

@@ -23,7 +23,7 @@ begin
     case i of
       15: writeln(this:6);
       5, 10: writeln(this:6, ',');
-      otherwise write(this:6, ', ')
+      else write(this:6, ', ')
     end;
   end;
 end.