CanonSharp/OpenSet/57_many_params.pas

program main;
var
arr: array [0..31, 0..1] of integer;
i: integer;

function param32_rec(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,
                    a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,
                    a31,a32: integer): integer;
begin
    if a1 = 0 then
        param32_rec := a2
    else
        param32_rec := param32_rec(a1 - 1, (a2 + a3) mod 998244353, a4, a5, a6, a7, a8, a9,
                       a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20,
                       a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31,
                       a32, 0);
end;

function param32_arr: integer;
var sum: integer;
begin
    sum := arr[0, 0] + arr[0, 1];
    sum := sum + arr[1, 0] + arr[1, 1];
    sum := sum + arr[2, 0] + arr[2, 1];
    sum := sum + arr[3, 0] + arr[3, 1];
    sum := sum + arr[4, 0] + arr[4, 1];
    sum := sum + arr[5, 0] + arr[5, 1];
    sum := sum + arr[6, 0] + arr[6, 1];
    sum := sum + arr[7, 0] + arr[7, 1];
    sum := sum + arr[8, 0] + arr[8, 1];
    sum := sum + arr[9, 0] + arr[9, 1];
    sum := sum + arr[10, 0] + arr[10, 1];
    sum := sum + arr[11, 0] + arr[11, 1];
    sum := sum + arr[12, 0] + arr[12, 1];
    sum := sum + arr[13, 0] + arr[13, 1];
    sum := sum + arr[14, 0] + arr[14, 1];
    sum := sum + arr[15, 0] + arr[15, 1];
    sum := sum + arr[16, 0] + arr[16, 1];
    sum := sum + arr[17, 0] + arr[17, 1];
    sum := sum + arr[18, 0] + arr[18, 1];
    sum := sum + arr[19, 0] + arr[19, 1];
    sum := sum + arr[20, 0] + arr[20, 1];
    sum := sum + arr[21, 0] + arr[21, 1];
    sum := sum + arr[22, 0] + arr[22, 1];
    sum := sum + arr[23, 0] + arr[23, 1];
    sum := sum + arr[24, 0] + arr[24, 1];
    sum := sum + arr[25, 0] + arr[25, 1];
    sum := sum + arr[26, 0] + arr[26, 1];
    sum := sum + arr[27, 0] + arr[27, 1];
    sum := sum + arr[28, 0] + arr[28, 1];
    sum := sum + arr[29, 0] + arr[29, 1];
    sum := sum + arr[30, 0] + arr[30, 1];
    sum := sum + arr[31, 0] + arr[31, 1];
    param32_arr := sum;
end;

function param16(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16: integer): integer;
var arr2: array[0..15] of integer;
begin
    arr2[0] := a1;
    arr2[1] := a2;
    arr2[2] := a3;
    arr2[3] := a4;
    arr2[4] := a5;
    arr2[5] := a6;
    arr2[6] := a7;
    arr2[7] := a8;
    arr2[8] := a9;
    arr2[9] := a10;
    arr2[10] := a11;
    arr2[11] := a12;
    arr2[12] := a13;
    arr2[13] := a14;
    arr2[14] := a15;
    arr2[15] := a16;
    param16 := param32_rec(arr2[0], arr2[1], arr2[2], arr2[3], arr2[4], arr2[5], arr2[6],
                     arr2[7], arr2[8], arr2[9], arr2[10], arr2[11], arr2[12], arr2[13],
                     arr2[14], arr2[15], a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
                     a11, a12, a13, a14, a15, a16);
end;

function getint(var index: integer): integer;
var input: array[0..15] of integer;
begin
    input[0] := 17;
    input[1] := 13;
    input[2] := 80;
    input[3] := 55;
    input[4] := 81;
    input[5] := 91;
    input[6] := 95;
    input[7] := 58;
    input[8] := 13;
    input[9] := 5;
    input[10] := 63;
    input[11] := 19;
    input[12] := 54;
    input[13] := 45;
    input[14] := 67;
    input[15] := 63;
    index := index + 1;
    getint := input[index - 1];
end;

begin
    i := 0;
    arr[0, 0] := param16(getint(i), getint(i), getint(i), getint(i), getint(i),
                             getint(i), getint(i), getint(i), getint(i), getint(i),
                             getint(i), getint(i), getint(i), getint(i), getint(i),
                             getint(i));
    arr[0, 1] := 8848;
    for i := 1 to 31 do
    begin
        arr[i, 0] := arr[i - 1, 1] - 1;
        arr[i, 1] := arr[i - 1, 0] - 2;
    end;
    write(param32_arr);
end.