Just another update

Task/Man-or-boy-test/Pascal/man-or-boy-test.pascal

@@ -0,0 +1,25 @@
+program manorboy(output);
+
+function zero: integer; begin zero := 0 end;
+function one: integer; begin one := 1 end;
+function negone: integer; begin negone := -1 end;
+
+function A(
+  k: integer;
+  function x1: integer;
+  function x2: integer;
+  function x3: integer;
+  function x4: integer;
+  function x5: integer
+): integer;
+
+  function B: integer;
+  begin k := k - 1;
+        B := A(k, B, x1, x2, x3, x4)
+  end;
+
+begin if k <= 0 then A := x4 + x5 else A := B
+end;
+
+begin writeln(A(10, one, negone, negone, one, zero))
+end.