program schrijfio; uses wincrt;
var
   adres: integer;
   data: byte;
begin
   write('Geef een I/O-adres: ');
   read(adres);
   write('Geef de data: ');
   read(data);
   port[adres]:=data;
   write('De data ', data, ' is geschreven naar I/O-adres ', adres)
end.