program gemiddelde_bepalen; uses wincrt;
var
	getal, totaal, gemiddelde: real;
	aantal, teller: integer;
begin
	totaal:=0.0;
	teller:=0;
	write('Geef een aantal: ');
	read(aantal);
	repeat
		write('Geef een getal: ');
		read(getal);
		totaal:=totaal+getal;
		teller:=teller+1
	until teller=aantal;
	gemiddelde:=totaal/aantal;
	write('Het gemiddelde is: ', gemiddelde:2:2)
end.