call by value-result in Pascal

Question

How can i simulate calling by value-result in this example. Without adding variables and without change a variable name.?

Program one;
    var
      x:integer;
    Function two():integer;
        begin
           x:=x+1;
           two:=x;
        end;
    Procedure three(x:integer);
       begin
          x:=x+5;
          x:=two();
       end;
begin
x:=8;
three(x);
write(x);
end.

Answer 1

If it's homework, I don't think you will have to try var y hard to find the answer.

EDIT: The comment below is correct - maybe I was leading you up the wrong path - it's probably best to return to where we were and start from there.

Answer 2

Do to two() what three() already does.