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

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