program gemiddelde; uses wincrt;
const
	aantal=10;
var
	rij: array [1..aantal] of real;
	teller: integer;
	totaal: real;
begin
	teller:=1;
	repeat
		write('Geef getal ', teller, ': ');
		read(rij[teller]);
		teller:=teller+1
	until teller>aantal;
	teller:=1;
	repeat
		writeln('Getal ', teller, ' = ', rij[teller]:4:2);
		totaal:=totaal+rij[teller];
		teller:=teller+1
	until teller>aantal;
	writeln('Het gemiddelde = ', totaal/aantal:4:2)
end.