Программа

PROCEDURE Stop; { Процедура остановки программы }
  Begin
    Write('Нажмите <Enter>'); { Вывод приглашения нажать <Enter> }
    ReadLn                    { Остановка программы до нажатия <Enter> }
  End;
BEGIN
  Stop
END.

  Схема процедуры "Stop"

  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
         :
   *****************                 ┌─
                                     │
  *  "Нажмите     *                  │ Вывод приглашения
                   ∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙│
 *    <Enter>"   *                   │ нажать <Enter>
                                     │
*****************                    └─
         :
         :
   *****************                 ┌─
                                     │
  *               *                  │ Остановка программы
       ReadLn      ∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙│
 *               *                   │ до нажатия <Enter>
                                     │
*****************                    └─
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************