begin   
comment using c-function pow;	
	real procedure power(real VALUE a; real VALUE b); algol "pow"; 
   
	real r;
	r := power(2, 0.5);
	write(r);
end