begin 
	comment
		CREATE SOME RANDOM NUMBERS, PRINT THEM AND
		PRINT THE AVERAGE.
	;

	integer NN;

	NN := 20;

	begin 
		integer I;
		real SUM;

		VPRINT ("RANDOM NUMBERS:");

		SUM := 0;
		for I := 1 step 1 until NN do begin 
			real X;
			X := RAND;
			SUM := SUM + X;
			VPRINT (I, X)
		end;
	
		VPRINT ("AVERAGE IS:", SUM / NN)
	end 
end