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