Data update

Task/Ethiopian-multiplication/PascalABC.NET/ethiopian-multiplication.pas

@@ -0,0 +1,17 @@
+function halve(x: integer): integer := x div 2;
+function double(x: integer): integer := x * 2;
+function odd(x: integer): boolean := x mod 2 <> 0;
+
+function ethiopian(x, y: integer): integer;
+begin
+  while x >= 1 do
+  begin
+    if odd(x) then result += y;
+    x := halve(x);
+    y := double(y);
+  end;
+end;
+
+begin
+  ethiopian(17, 34).println;
+end.