Added Pascal Scripts

Author: Undalevein

pascal/clockhands.pas

@@ -0,0 +1,15 @@
+uses sysutils;
+
+var
+  i, t, h, m, s : longint;
+begin
+  for i := 0 to 10 do
+  begin
+    t := trunc ((i + 0.5) * 43200 / 11);
+    h := trunc (t / 3600);
+    m := (trunc (t / 60)) mod 60;
+    s := t mod 60;
+    if h = 0 then h := 12;
+    WriteLn(Format('%0.02d:%0.02d:%0.02d', [h, m, s]));
+  end;
+end.

pascal/hello.pas

@@ -0,0 +1,3 @@
+begin
+  write('Hello, World!');
+end.

pascal/reserved_word_identifiers.pas

@@ -0,0 +1,7 @@
+var
+  &var : integer;
+
+begin
+  &var:=1;
+  Writeln(&var);
+end.

pascal/test.ps1

@@ -0,0 +1,34 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+$bin = "$PSScriptRoot\bin"
+
+# First check if folder bin exists. If not, make a new bin folder.
+if (!(Test-Path -Path $bin)) {
+    New-Item -Path $bin -Type Directory
+} 
+
+$Error.clear()
+fpc "$PSScriptRoot\clockhands.pas" && . "$PSScriptRoot\clockhands.exe" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests &&
+fpc "$PSScriptRoot\hello.pas" && . "$PSScriptRoot\hello.exe" &&
+fpc "$PSScriptRoot\reserved_word_identifiers.pas" && . "$PSScriptRoot\reserved_word_identifiers.exe" &&
+fpc "$PSScriptRoot\triple.pas" && . "$PSScriptRoot\triple.exe" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
+    Assert-MatchTests &&  
+ForEach-Object 'foo';
+
+if ($Error -or !$?) { 
+    "*** PASCAL TESTS FAILED ***" 
+}
+else { 
+    "PASCAL TESTS PASSED" 
+} 

pascal/triple.pas

@@ -0,0 +1,25 @@
+uses sysutils;
+
+var
+  n, a, b, c : integer;
+
+Operator ** (num1 : smallint; num2 : shortint) exp : smallint;
+begin
+  exp := 1;
+  for n := 1 to num2 do
+    exp := exp * num1;
+end;
+
+begin
+  for c := 1 to 40 do
+  begin
+    for b := 1 to c do
+    begin
+      for a := 1 to b do
+      begin
+        if a ** 2 + b ** 2 = c ** 2 then 
+          WriteLn(Format('%d, %d, %d', [a, b, c]));
+      end;
+    end;
+  end;
+end.