{值參、變參結(jié)合功能測試}

program sd
var 
    integer x,y,z;     
    procedure f(integer x,y;var integer z);
    begin
	z:=x+y+z;
	write(x);
	write(y);
	write(z)
    end
begin
x:=3;
y:=4;
z:=5;
f(x,y,z);
write(x);
write(y);
write(z);
f(6,x+y+z,y);
write(x);
write(y);
write(z);
f(x+y,y/x,x);
write(x);
write(y);
write(z)
end.