1 files changed, 26 insertions, 0 deletions
diff --git a/challenge-243/deadmarshal/pascal/ch1.pas b/challenge-243/deadmarshal/pascal/ch1.pas
new file mode 100644
index 0000000000..bd84bf950b
--- /dev/null
+++ b/challenge-243/deadmarshal/pascal/ch1.pas
@@ -0,0 +1,26 @@
+program Ch1;
+
+{$mode objfpc}
+uses
+  SysUtils,Types;
+
+var
+  A1,A2:TIntegerDynArray;
+  
+function ReversePairs(var Arr:TIntegerDynArray):Integer;
+var
+  I,J:Integer;
+begin
+  Result := 0;
+  for I := Low(Arr) to High(Arr)-1 do
+    for J := I+1 to High(Arr) do
+      if Arr[I] > (2 * Arr[J]) then Inc(Result);
+end;
+
+begin
+  A1 := [1,3,2,3,1];
+  A2 := [2,4,3,5,1];
+  WriteLn(ReversePairs(A1));
+  WriteLn(ReversePairs(A2));
+end.
+