program leesLPT1; uses wincrt;
var
   b: byte;
begin
   b:=port[$3bd];
   b:=b and $78; {reset niet gebruikte bits}
   b:=b shr 3;
   write('De ingangen I3 t/m I0 hebben de waarde: ', b)
end.