{
	sesame.p
	
	Written on the fly by Jeff Ondich on 9/23/96.

	This program provides a trivial illustration of the
	different behaviors of variable parameters (as in Ernie)
	and value parameters (as in Bert).  More serious
	illustrations will wait until Wednesday.
}

program varparams(output);

var		a, b : integer;

procedure Bert( n : integer );
begin
	n := 5
end;

procedure Ernie( var n : integer );
begin
	n := 6
end;

begin
	a := 1;
	b := 2;
	
	Bert( a );
	Ernie( b );
	
	writeln( 'a = ', a );
	writeln( 'b = ', b )
end.