program verwarming; uses wincrt;
const
   LPT1D=$3bc;
   LPT1S=LPT1D+1;
var
   temperatuur: byte;
begin
   temperatuur:=10+((port[LPT1S] and $78) shr 3);
   if temperatuur<=18
   then
   begin
      port[LPT1D]:=port[LPT1D] or $08 { verwarming aan }
   end
   else
   begin
      if temperatuur>=20
      then
      begin
         port[LPT1D]:=port[LPT1D] and $f7 { verwarming uit }
      end
   end;
   writeln('De temperatuur is: ', temperatuur)
end.