% Program : average.t
%    Reads intergers and computes their average.
% Written by : B. Etter Programmer
% Date       : January 10, 1996

% Number of values to read and average
const count  := 5

var total   : int := 0
var values  : array 1..count of int

% Prompt for and read input
for current : 1 .. count
	put "Enter data : " ..
	get values(current)
end for

% Sum all of the values
for current : 1 .. count
	total := total + values(current)
end for

put "The average is : ", total div count