begin
comment passing record object to procedure: pointDistance;
	record RPoint (real x, y);
	reference(RPoint) pt;
	
	real procedure pointDistance(reference(RPoint) value point);
	begin
		real a;
		a := x(point)**2 + y(point)**2;
		sqrt(a)
	end;
	
	real r;
	
	pt := RPoint(1.0, 2.0);
	r := pointDistance(pt);
	write(r);
end.