algol-of-code/src/day11.a60

procedure printresults(r1, r2);
    integer r1, r2;
code;

begin
    integer result1, result2;
    result1 := 0; result2 := 0;
    printresults(result1, result2);
end