branding and Delphi compatibility

Author: jimmckeeth

examples/pascal/Max_array.pas

@@ -1,21 +1,17 @@
-unit output;
-
-interface
-
-function SumOverArray(const Input: array of Integer): Integer;
-
-implementation
+program Sum_over_array;
 
 function SumOverArray(const Input: array of Integer): Integer;
 var
-  I: Integer;
+    I: Integer;
 begin
-  SumOverArray := 0;
+    SumOverArray := 0;
 
-  for I := Low(Input) to High(Input) do
-  begin
-    SumOverArray += Input[I];
-  end;
+    for I := Low(Input) to High(Input) do
+    begin
+        inc(Result, Input[I]);
+    end;
 end;
 
+begin
+    Writeln(SumOverArray([1,2,3,4,5,6,7,8,9,10]));
 end.

examples/pascal/Sum_over_array.pas

@@ -1,16 +1,11 @@
-unit output;
-
-interface
-
-function Square(const num: Integer): Integer;
-
-implementation
-
-// Type your code here, or load an example.
+program dafult;
 
 function Square(const num: Integer): Integer;
 begin
     Square := num * num;
 end;
 
+begin
+    Writeln('Hello world');
+    Writeln(Square(2));
 end.

examples/pascal/default.pas

@@ -0,0 +1,42 @@
+program multiples35;
+
+uses
+  System.SysUtils;
+
+var
+  Cnt: Integer;
+  Idx: Integer;
+  Total: Integer;
+begin
+    // If we list all the natural numbers
+    //   below 10 that are multiples of 3 or 5,
+    //   we get 3,5,6 and 9.
+    // The sum of these multiples is 23.
+    //
+    // Find the sum of all the multiples of 3 or 5 below 1000.
+  try
+    Total := 0;
+    Cnt := 0;
+    Write('Multiples: 3');
+
+    for Idx := 4 to 9999 do begin
+      if (Idx mod 15 = 0) or
+         (Idx mod 3 = 0) or
+         (Idx mod 5 = 0) then
+      begin
+        Inc(Cnt);
+        Total := Total + Idx;
+        Write(', ', Idx);
+      end;
+    end;
+
+    Writeln;
+    Writeln('Totaling ',
+      FormatFloat('#,###', Total), ' over ',
+      FormatFloat('#,###', Cnt), ' multiples.');
+  except
+    on E: Exception do begin
+      Writeln(E.ClassName, ': ', E.Message);
+    end;
+  end;
+end.