26 lines
522 B
Plaintext
26 lines
522 B
Plaintext
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.
|