[ControlFreak]

Код:

uses io;
var
indexPort:integer = $295;
dataPort:integer = $296;
tempport:integer;

function ListenPort(index:integer):integer;
begin
 PortOut(indexPort, index);
 Result := PortIn(dataPort);
end;

procedure SendPort(index,data:integer);
begin
 PortOut(indexPort, index);
 PortOut(dataPort, data);
end;

function getTemp(TempNum:integer):integer;
begin
   if TempNum=1 then  tempport:=$27
   else if TempNum=2 then  tempport:=$50
   else if TempNum=3 then  tempport:=$51  ;
   Result :=listenport(tempport);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := ( IntToStr(getTemp(1))  );
label2.Caption := ( IntToStr(getTemp(2))  );
label3.Caption := ( IntToStr(getTemp(3))  );

DungeonLords -сенькюверимача : )