Template:Basic Pascal Tutorial/Chapter 3/WHILE..DO