begin
	comment function sqrt;
	real x, y;
	
	for x:= 0 step 0.1 until 3.0 do
	begin
		y := sqrt (x);
		outreal (1, x); outreal (1, y); outstring (1,"\n")
	end 

end