halt.pas

 {Halt.PAS}
 
 { Пример программы для процедуры Halt }
 
 Uses WinCrt;
 
 Begin
  If 1 = 1 Then
   Begin
    If 2 = 2 Then
     Begin
      If 3 = 3 Then
       Begin
        Halt(1); { Останавливаемся прямо здесь! }
       End;
     End;
   End;
  WriteLn('Это не будет напечатано... ;-)');
 End.