CodeRunner MPL Documentation

Did the user press ENTER or not?

Program First;

uses Display;

var
   Ch:Char;

Begin
   ClrScr;
   Write('Hello World! Press [ENTER] to exit.');
   Ch:=ReadKey;
   If (Ch=#13) then exit
   else Write('!! INPUT ERROR !!');
End.

Source Explanation

  1. Program is a file header - letting Modern Pascal know this is a program. In this case, named "First".
  2. uses informs Modern Pascal additional run-time libraries to load. In this case, the keyboard and display library "display".
  3. var is the keyword to inform Modern Pascal that CH is of type CHARACTER.
  4. Begin ... End. is the main code block - the instructions that produce this algorithm of this program.

Code Block Explanation

  1. ClrScr stands for "Clear Screen" and erases everything in the command prompt (console, terminal).
  2. Write displays everything between the apostrophes (known as a string).
  3. ReadKey makes the program wait until the user presses any key, and stores the KEY character in the variable CH.
  4. if ... then is a comparison. If the expression CH equals the ENTER CHARACTER then exit the current code block.
  5. else is what to do when #4 is not a true expression. In this case,  we display !! INPUT ERROR !!.