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.