{
	varval.p

	Started by Jeff Ondich on 4/12/96
	Last modified on 4/12/96

	This program illustrates in a tiny way the difference
	between variable and value parameters.
}

program VarVsVal( input, output );

var		myNumber : integer;


procedure Elmo( var theNumber : integer );
begin
	theNumber := 3
end;


procedure Zoe( theNumber : integer );
begin
	theNumber := 4
end;


begin
	myNumber := 2;

	Zoe( 6 );
	writeln( 'After Zoe, myNumber = ', myNumber );

	Elmo( 6 );
	writeln( 'After Elmo, myNumber = ', myNumber )
end.