program thermometer; uses wincrt;
function temperatuur: integer;
   const
      LPT1S=$3bd;
   var
      hulp: integer;
   begin
      hulp:=port[LPT1S];
      hulp:=hulp and $78;
      hulp:=hulp shr 3;
      temperatuur:=hulp+10
   end;
begin
   repeat
      writeln('De temperatuur is ', temperatuur, ' graden C')
   until temperatuur=25
end.