RosettaCodeData/Task/Flow-control-structures/Pascal/flow-control-structures-3.pascal

procedure halt(errnum: Byte);