with TEXT_IO; use TEXT_IO;
procedure TSTTEXT10 is
begin
  PUT("Why is programming fun? What delights may its practitioner expect");NEW_LINE;
  PUT("as his reward? First is the sheer joy of making things.  As the");  NEW_LINE;
  PUT("child delights in his mud pie, so the adult enjoys building");      NEW_LINE;
  PUT("things, especially things of his own design. I think this delight");NEW_LINE;
  PUT("must be an image of God's delight in making things, a delight");    NEW_LINE;
  PUT("shown in the distinctness and newness of each leaf and each");      NEW_LINE;
  PUT("snowflake. Second is the pleasure of making things that are");      NEW_LINE;
  PUT("useful to other people. Deep within, we want others to  use our");  NEW_LINE;
  PUT("work and to find it helpful.  In this respect the programming");    NEW_LINE;
  PUT("system is not essentially different from the child's first clay");  NEW_LINE;
end TSTTEXT10;