{
	average.p

	Written for Rich Nau's CS 117 class by Jeff Ondich
	on 9/30/96.  Illustrates some elementary array
	ideas.
}

program average(input,output);
const	top = 12;

type	IntArray = array[1..top] of integer;

var		myList : IntArray;
		nNumbers, i , sum : integer;
		
begin
  {Get the numbers from the user.}
	nNumbers := 0;
	write( 'Type a few integers, please: ' );
	while not eoln do
	begin
		nNumbers := nNumbers + 1;
		read( myList[nNumbers] )
	end;

{Let's take a look at the whole array}
{for i:=1 to top do
writeln( i, myList[i] );}

  {Compute the sum of the numbers.}
	sum := 0;
	for i := 1 to nNumbers do
		sum := sum + myList[i];

  {Report the average.}
	writeln( 'Average = ', sum/nNumbers : 6 : 2 )
end.