program max_iobox; uses wincrt;
const
	LPT1S=$3bd;
var
	max, getal, aantal, teller: integer;
	invoer: char;
begin
	max:=0;
	teller:=0;
	write('Geef een aantal: ');
	readln(aantal);
	repeat
		repeat
			write('Getal ingevoerd? j/n: ');
			readln(invoer)
		until invoer='j';
		getal:=port[LPT1S];
		getal:=getal and $78;
		getal:=getal shr 3;
		writeln(getal);
		if getal>max
		then
			max:=getal;
		teller:=teller+1
	until teller=aantal;
	write('De maximale waarde is: ', max)
end.