program gem_iobox; uses wincrt;
const
	LPT1S=$3bd;
var
	gemiddelde: real;
	getal, totaal, aantal, teller: integer;
	invoer: char;
begin
	totaal:=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);
		totaal:=totaal+getal;
		teller:=teller+1
	until teller=aantal;
	gemiddelde:=totaal/aantal;
	write('De gemiddelde waarde is: ', gemiddelde:2:2)
end.
