Did the user press Y,y or N,n or not?
Write('Are you over 21?');
If (Ch='Y') or (Ch='y') then Write('ADULT')
else If (Ch='N') or (Ch=n') then Write('MINOR');
- Program is a file header - letting Modern Pascal know this is a program. In this case, named "First".
- uses informs Modern Pascal additional run-time libraries to load. In this case, the keyboard and display library "display".
- var is the keyword to inform Modern Pascal that CH is of type CHARACTER.
- Begin ... End. is the main code block - the instructions that produce this algorithm of this program.
Code Block Explanation
- ClrScr stands for "Clear Screen" and erases everything in the command prompt (console, terminal).
- Write displays everything between the apostrophes (known as a string).
- ReadKey makes the program wait until the user presses any key, and stores the KEY character in the variable CH.
- if ... then is a comparison. If the expression CH equals Y or CH equals y then display ADULT.
- else if ... then is another comparison. If the expression CH equals N or CH equals n then display MINOR.
- Notice the semicolon is now on the last instruction in these comparisons.