Template:Basic Pascal Tutorial/Chapter 3/Solution