PROGRAM MrsGorman (Input, Output);
CONST
   Indifferent = 60
VAR
   Thursday, Indisposed, Called: BOOLEAN;
   Bed, Chair, Hearth, Fire, Window, open: BOOLEAN;
   Rand, Temperature: INTEGER;
BEGIN {Main Program}
IF Thursday THEN
   IF NOT (Indisposed)
      THEN Called:= True
   ELSE {If Indisposed}
      Called:=False;
   IF NOT Called THEN Random;
         IF Rand = 0 THEN (Bed)
      ELSE {if Rand = 1then}
      BEGIN {Else}
         IF Temperature < Indifferent
            THEN (Chair and Hearth AND Fire)
         ELSE IF Temperature > Indifferent
            THEN (Chair AND Window AND Open)
         ELSE IF Temperature = Indifferent THEN
            BEGIN {Else if}
               Random
               IF Rand = 0
                  THEN (Chair and Window AND NOT Open)
               ELSE {if Rand = 1then}
                  (Chair AND Hearth AND NOT Fire)
      END {Else if}
   END {Else}
END {Main Program} READ MORE >