trf_byReference2

program contoh2;
uses crt;

procedure tukar(var x, y: integer);
var z: integer;
begin
    z:=x;
    x:=y;
    y:=z;
end;

var a, b: integer;
begin
    clrscr;
    a := 2;
    b := 9;
    tukar(a,b);
    writeln('a=', a, ' b=', b);
    readkey;
end.