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