begin comment maxreal; real x; x := maxreal; outreal(1,x) end