{Halt.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the Halt procedure.}

  uses WinCrt;

  begin
    if 1 = 1 then
      begin
        if 2 = 2 then
          begin
            if 3 = 3 then
              begin
                Halt(1); { Halt right here! }
              end;
          end;
      end;
    Writeln('This will not be executed');
  end.