Added solutions to challenge 163

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-163/deadmarshal/pascal/ch1.pas b/challenge-163/deadmarshal/pascal/ch1.pas
new file mode 100644
index 0000000000..a594f21561
--- /dev/null
+++ b/challenge-163/deadmarshal/pascal/ch1.pas
@@ -0,0 +1,25 @@
+program Ch1;
+
+{$mode objfpc}
+uses
+   SysUtils,Types;
+var
+   Arr,Arr2:TIntegerDynArray;
+   
+function SumBitwiseOperator(Arr:TIntegerDynArray):Integer;
+var
+   I,J:Integer;
+begin
+   Result := 0;
+   for I := 0 to High(Arr) do
+      for J := I+1 to High(Arr) do
+	 Result := Result + Arr[I] and Arr[J];
+end;
+
+begin
+   Arr := TIntegerDynArray.Create(1,2,3);
+   Arr2 := TIntegerDynArray.Create(2,3,4);
+   WriteLn(SumBitwiseOperator(Arr));
+   WriteLn(SumBitwiseOperator(Arr2));   
+end.
+