no subject

И с тех пор 50 лет никому непонятно. 😀
Не думаю, что на Алголе понятнее станет.

begin
    real procedure A(k, x1, x2, x3, x4, x5);
    value k; integer k;
    real x1, x2, x3, x4, x5;
    begin
        real procedure B;
        begin
            k := k - 1;
            B := A := A(k, B, x1, x2, x3, x4);
        end;
        A := if k < 1 then x4 + x5 else B;
    end;
    print(A(10, 1.0, -1.0, -1.0, 1.0, 0.0));
end